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PRÉFACE 


L'Amstrad CPC464 est l’un des ordinateurs familiaux les plus inté- 
ressants parmi ceux qui ont été lancés en 1984. Il a déjà été large- 
ment adopté par ceux qui recherchent une machine proposant un 
langage et un système d'exploitation particulièrement performants 
ainsi qu’un excellent rapport qualité-prix. Par nature, les micro- 
ordinateurs sont des appareils compliqués et les esprits curieux ne 
tardent pas à se demander comment fonctionnent leurs différents élé- 
ments. Cela n’est jamais très facile à comprendre et nous espérons 
que ce livre répondra à la plupart des questions qui se posent immé- 
diatement, tout en montrant comment s'est déroulée notre propre 
‘exploration’. 


TiM MOORI 
septembre 1984, 
Kuma Computers Ltd. 
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INTRODUCTION 


Bienvenue dans le monde de l’Amstrad CPC464 ! Ce système puis- 
sant et passionnant a reçu de nombreuses critiques favorables depuis 
sa première apparition au cours de l’année 1984. Ce n’est pas éton- 
nant, car il offre un excellent rapport qualité-prix, et procure de nom- 
breuses possibilités sous une présentation solide et soignée. 

Ce livre s'adresse à tous les possesseurs de l'Amstrad et à ses utili- 
sateurs potentiels, quel que soit leur niveau. Il a été conçu pour aug- 
menter les informations fournies dans le manuel. Mais plutôt que 
reproduire simplement les données du manuel, ce livre s'attarde sur 
certains des aspects les plus exceptionnels du système, et en particu- 
lier sur deux de ses traits caractéristiques : le graphisme et le son. 
De nombreux exemples de programmes sont donnés pour permettre 
au lecteur de tester lui-même les techniques concernant ces aspects. 

L'intérêt et la valeur d'un ordinateur familial résident principale- 
ment dans sa capacité d'augmenter les connaissances et le talent de 
l'utilisateur. 1l n’est pas intéressant de copier de nombreux pro- 
grammes sans comprendre quelle était l'intention de l’auteur. Par 
conséquent, ce livre veut expliquer pourquoi les choses fonctionnent, 
et pas simplement ce qu'il faut taper. Cela devrait permettre au lec- 
teur de faire des ajouts aux programmes décrits dans le livre, d'écrire 
ses propres jeux et d'améliorer les exemples donnés. L'auteur pense 
que l’on ne doit pas renier les jeux, car ils peuvent se révéler parti- 
culièrement éducatifs si le lecteur se donne la peine de regarder der- 
rière la façade. 

Toutefois, si vos préoccupations dépassent le simple cadre des jeux, 
vous pourrez être intéressé par la cinquième partie de cet ouvrage, 
qui décrit un programme complet de gestion familiale. Elle montre 
que l’Amstrad peut être parfaitement utilisé pour des applications 
sérieuses. 


JOHN BRAGA, 
septembre 1984. 





SE FAMILIARISER 
AVEC LA MACHINE 






Céte partie fait le point sur les diverses caractéristiques de l'Amstrad, 
et doit être considérée comme nécessaire pour bien comprendre les 
parties suivantes. 


1 
LES POSSIBILITÉS DE L'AMSTRAD 


Dans ce chapitre, nous donnerons une vue d'ensemble du système 
Amstrad CPC464 et nous présenterons les éléments qui seront décrits 
plus précisément par la suite. 


UNE MÉMOIRE D'ÉLÉPHANT ! 


L'Amstrad a une mémoire généreuse. Les jours sont bien lointains 
où les ordinateurs familiaux devaient se contenter d’1K ou de 2K de 
RAM. Vous pouvez maintenant profiter de 64K. Cela ne signifie peut- 
être pas grand-chose en soi. Il n’est pas rare qu’un système préten- 
dant disposer de 64K n'offre en fait qu'une mémoire considérable- 
ment plus réduite à l'utilisateur lorsque l'ordinateur a rempli toute 
la partie de la RAM qui lui est nécessaire pour sa mise en route ! Ce 
n'est pas le cas de celui-ci, car l’utilisateur peut disposer de 42K en 
BASIC, ce qui est bien suffisant pour des programmes ‘’à l'échelle 
humaine’”, comme nous le verrons. Certains systèmes omettent sour- 
noisement de préciser qu’une bonne partie de la précieuse mémoire 
est accaparée par la gestion de l'écran lors de l’utilisation du graphisme 
haute résolution. Mais l’Amstrad utilise constamment 16K pour l'écran, 
quelle que soit la résolution graphique, et la mémoire n’est donc pas 
diminuée lorsqu'on choisit la haute résolution. 


En fait, vous disposez de plus de 64K, car il ÿy a en plus deux ROM 
de 16K (ou une ROM de 32K, pour être plus précis) qui contiennent 
le système d'exploitation et l'interpréteur BASIC proprement dit. 
Comme le Z80 ne peut adresser que 64K, une technique particulière 
permet aux ROM de pouvoir ‘‘’apparaître’’ ou ‘’disparaître’’ à volonté. 
La répartition de la mémoire est la suivante : 
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Normalement, cet ‘’appel”’ des ROM est tout à fait invisible pour 
qui programme en BASIC. Quand vous désirez lire une adresse (avec 
PEEK), les ROM sont masquées et vous ne voyez que la RAM. 


PLUS QU'UN SIMPLE BASIC... 


Le BASIC est un langage aisément compréhensible, qui possède 
de nombreuses caractéristiques intéressantes. En plus des possibili- 
tés auxquelles vous pouvez normalement vous attendre, le BASIC de 
l'Amstrad est ‘‘’étendu’’ afin de gérer le graphisme, le son, et de per- 
mettre également une utilisation multitâche. Contrairement à d’autres 
systèmes, qui obligent les programmeurs à recourir à de nombreuses 
instructions PEEK et POKE dès qu'ils veulent réaliser quelque chose 
d'intéressant, le BASIC de l’Amstrad est remarquablement lisible. 

Le BASIC de l’Amstrad est un BASIC complet ; il n’est donc pas 
nécessaire de rajouter des extensions particulières pour accéder à cer- 
tains types de commandes. En conséquence, il ne vous sera que très 
rarement nécessaire d'utiliser l’assembleur pour bénéficier de tous 
les avantages du matériel — presque tous peuvent être exploités grâce 
au langage BASIC. Cela fait de l’Amstrad un système très facile à uti- 
liser par quelqu'un qui n’est pas encore très familiarisé avec 
l'informatique. 
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Etil est rapide. Assez rapide pour que l’on puisse programmer direc- 
tement de nombreux jeux, même ceux qui requièrent une anima- 
tion graphique — mais bien entendu, un emploi judicieux de sous- 
programmes en assembleur peut permettre d'augmenter encore la 
vitesse. L’assembleur est traité dans la quatrième partie, et les jeux 
de la troisième partie contiennent des sous-programmes en assem- 
bleur permettant d'améliorer la gestion de l'écran. 


AVEZ-VOUS DÉJÀ PROGRAMMÉ ? 


Nous avons déjà dit que l’Amstrad était un excellent ordinateur pour 
les nouveaux venus à l'informatique. Mais le programmeur expéri- 
menté n’a aucune raison de se sentir lésé. L'Amstrad peut paraître 
inhabituel en ce sens que son manuel technique explique tous les 
détails matériels de la machine. Il décrit assez bien le système d’exploi- 
tation et le véritable enthousiaste se doit de le lire sérieusement. En 
fait, ilest remarquablement facile de programmer l’Amstrad en code 
machine car on peut utiliser à tout moment les fonctions offertes par 
le système. Cela facilitera grandement la tâche des éditeurs de logi- 
ciels qui désireront éditer des programmes de traitement de texte ou 
des tableurs. 


UN CLAVIER TRÈS SOUPLE 


Le clavier a une disposition commerciale standard, il est d’une uti- 
lisation agréable durant de longues périodes et il possède un pavé 
numérique complet. Si vous n'aimez pas l'agencement des touches, 
vous pouvez le modifier car la valeur de chaque touche peut être 
‘‘reprogrammée’’. Vous pouvez même supprimer ou changer la 
vitesse de la répétition automatique. Vous n'êtes pas non plus limité 
par le large assortiment de caractères disponibles, puisque vous pou- 
vez aisément créer vos propres caractères — quelques monstres pour 
un jeu d'arcade où même tout un nouvel alphabet si vous le désirez. 
Nous en reparlerons plus tard. 

Une simple touche peut également être utilisée pour afficher une 
chaîne de plusieurs caractères en redéfinissant une touche de fonction. 
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LES CASSETTES SONT BONNES POUR LA HI-FI... 


La plupart des utilisateurs de systèmes à cassettes s'efforcent de pas- 
ser aux disquettes dès qu'ils en ont l’occasion. En vérité, les casset- 
tes ne sont pas idéales pour conserver les informations, car elles sont 
très lentes et peu fiables en comparaison des disques souples. Mais 
le lecteur de cassettes de l’Amstrad est intégré à la machine et nous 
n'avons eu aucun problème d'erreur de lecture. Il n’y a pas à s'occu- 
per du réglage de la tonalité, et le contrôle du volume vous permet 
simplement d'écouter la lecture où l'écriture du programme si vous 
le désirez. L'absence de câbles, le fait qu'il n’y ait pas d'unités sépa- 
rées, tout cela est un avantage certain. Pour la plupart des utilisateurs, 
un unique câble d'alimentation sera relié au moniteur (couleur ou 
monochrome) de l'ordinateur. Simplicité ! 

Une autre caractéristique utile de l’Amstrad : l'utilisateur peut sau- 
vegarder ses programmes à vitesse double s’il le désire — à 2 000 bps 
au lieu de 1 000 bps. Il est vrai que le risque d'erreur augmente à 
grande vitesse, mais en employant des cassettes de bonne qualité (C12 
où C30 de préférence), il ne devrait pas y avoir de problèmes. Nous 
avons toujours utilisé la grande vitesse dans des conditions normales 
et la vitesse lente pour effectuer des copies. 


ET L'ÉCRAN ? 


Les fenêtres (sur l'écran, bien sûr !) sont très à la mode actuelle- 
ment en informatique. Pour le texte, l'utilisateur peut avoir jusqu'à 
huit fenêtres, qui peuvent se superposer de n'importe quelle manière. 
De plus, il dispose d'une fenêtre graphique indépendante qui peut 
couvrir l’ensemble de l'écran s'il le désire. Il est bon de noter qu'il 
n'y a pas de restrictions au mixage du texte et du graphisme dans 
une zone donnée. En règle générale, le graphisme est tel qu'il per- 
met des jeux très élaborés, et des applications sérieuses peuvent être 
rendues beaucoup plus attrayantes si l’on emploie astucieusement 
les couleurs. 

A propos des couleurs, l’Amstrad en offre 27, bien qu'on ne puisse 
pas toutes les afficher simultanément sur l'écran. Il y a une relation 
entre l'éventail des couleurs et le degré de résolution. Si vous choi- 
sissez d'afficher 80 colonnes sur l'écran (haute résolution), vous ne 
disposerez que de 2 couleurs ; par contre, si vous réduisez la résolu- 
tion à 20 colonnes, vous disposerez de 16 couleurs sur l'écran. 


415: 


Pour la plupart des utilisateurs, le mode intermédiaire constituera 
un compromis satisfaisant : 4 couleurs et 40 colonnes. 
Les trois modes permettent d'afficher 25 lignes. 


UN PAYS DE COCAGNE SONORE ! 


L'Amstrad, sans doute conscient de la spécialité de sa compagnie, 
possède d’'impressionnantes possibilités sonores. Il dispose de trois 
canaux sonores et d’un canal de bruit, qui peuvent être manipulés 
et synchronisés pour produire les meilleurs résultats. Une fois encore, 
on peut accéder à toutes ces possibilités à partir du BASIC, mais les 
commandes SOUND, ENVELOPPE et ENT sont très complexes et il 
n'est pas facile d'obtenir les effets désirés si l’on n’a pas étudié ces 
commandes de manière approfondie. C’est pourquoi la deuxième 
partie a pour objet de montrer ce qui peut être réalisé dans ce 
domaine. 

D'autres ordinateurs familiaux offrent également d'intéressantes pos- 
sibilités sonores, mais celles-ci sont limitées par l'emploi d’un minus- 
cule haut-parleur interne. L'Amstrad dispose d’une sortie qui peut 
être connectée à un système hi-fi stéréo, ce qui rend les effets sonores 
beaucoup plus impressionnants. Mais bien entendu vous pouvez uti- 
liser le haut-parleur interne si vous le désirez. 


ET ENSUITE ? 


La plupart des utilisateurs voudront étendre leur système. Pour beau- 
coup, le premier choix se portera sans doute sur une imprimante, 
et le système peut être relié à une unité possédant une sortie indus- 
trielle standard du type ‘‘Centronics parallèle” qui permet la com- 
patibilité avec un large éventail de machines. Pour les joueurs, les 
manettes de jeu seront particulièrement appréciées. Pour les utilisa- 
teurs plus sérieux, le lecteur de disquette constituera une aubaine 
inestimable qui ajoutera beaucoup à la vitesse et à la flexibilité du 
système. L'Amstrad pourra alors profiter des logiciels utilisables sous 
CP/M. 

Une autre solution consiste à ajouter des logiciels spécialisés sous 
forme de ROM. L'Amstrad est conçu pour permettre l'ajout de 240 
() ROM supplémentaires de 16K chacune, grâce à des cartes d’exten- 
sion. Ces ROM d'expansion occupent toutes le même champ 


216 = 


d'adresse et le système n’en utilise qu’une seule à la fois, les autres 
étant ‘invisibles’. Elles se sont révélées très populaires avec le système 
Acorn BBC et l’on peut espérer que l’Amstrad disposera très prochai- 
nement, grâce à cette méthode, de tableurs, de traitements de texte, 
et d’autres langages, tels que le Pascal et le Forth. Amstrad a déjà 
publié un guide sur la manière de créer des ROM pour le système 
CPC464 ; c'est un signe encourageant. 

En examinant la figure décrivant l'implantation de la mémoire, pré- 
sentée un peu plus tôt dans ce chapitre, vous verrez que la partie 
supérieure de la mémoire est occupée par une ROM de 16K conte- 
nant le BASIC. C’est cette ROM qui peut être ‘‘recouverte”” par une 
ROM d'expansion. La ROM inférieure, contenant le système d’exploi- 
tation, ne doit jamais être ‘‘recouverte’”’. 

Vivement le Pascal ! 


RÉSUMÉ 


Comme vous avez pu le constater, nous avons été vivement impres- 
sionnés par le soin considérable apporté à la conception de l’Amstrad 
CPC464. Les possibilités offertes récompensent largement les efforts 
d'une étude approfondie, que nous allons entamer maintenant... 
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2 
UNE VISITE GUIDÉE EN BASIC 


Le but de ce livre n’est pas de vous enseigner le BASIC. Il existe des 
douzaines d'ouvrages qui se proposent de le faire. Son but n’est même 
pas de vous apprendre les instructions du BASIC de l’Amstrad, car 
pour cela vous devez étudier le manuel fourni avec l'appareil. Dans 
ce chapitre, nous considérerons que vous comprenez au moins les 
rudiments du BASIC, et nous nous pencherons donc sur certaines 
des caractéristiques les plus inhabituelles ou les plus complexes. 


Les commandes du son et du graphisme seront plutôt détaillées 
dans des chapitres ultérieurs. 


La version du BASIC la plus commune est le MBASIC de Micro- 
soft, que l’on trouve sur divers systèmes 8 bits ou 16 bits. Le BASIC 
de l’Amstrad, développé par Locomotive Software, est très complet 
et possède de nombreuses similitudes avec le MBASIC ; vous ne 
devriez donc pas rencontrer beaucoup de difficultés si vous désirez 
convertir des programmes d'un BASIC à l’autre. Il dispose également 
de quelques commandes supplémentaires dédiées au graphisme en 
couleur et aux possibilités sonores de l’Amstrad. 


L'interpréteur BASIC est très important et occupe les 16K de la ROM 
supérieure. Ses capacités sont équivalentes de celles de la plupart 
des systèmes du commerce ; aucune possibilité n’a été réduite sous 
prétexte qu’il s’agit surtout d’un ordinateur familial. Il possède tout 
un éventail de fonctions consacrées aux chaînes (dont certaines sont 
originales, comme UPPERS et LOWERS), toutes les fonctions numé- 
riques essentielles, il peut traiter des entiers ou des nombres réels, 
des tableaux multidimensionnels, etc. Il semble également bien adapté 
à l'écriture de programmes sérieux, de jeux d'arcade, de réalisation 
de graphes, et peut encore être fort utile pour les ‘’devoirs de maths”. 


De plus, l’utilisation du clavier est extrêmement souple et l’ensemble 
du prochain chapitre sera consacré au clavier et au jeu de caractères. 
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PROGRAMMATION STRUCTURÉE 


Ce sujet a été largement exploré au cours des dernières années. 
Le BASIC de l’Amstrad offre les habituelles instructions de contrôle 
FOR...NEXT, GOSUB...RETURN, ON X GOSUB, ainsi que des ins- 
tructions moins communes (mais très utiles) comme WHILE...WEND. 
Il permet à l'utilisateur de définir des fonctions — uniquement des 
fonctions ‘’à ligne unique’ — mais n'autorise ni les procédures ni 
les variables locales. 

Bien que l’on puisse regretter l'absence de ces structures, on peut 
dire néanmoins qu’elles sont largement compensées par les possibi- 
lités de traitement de tâches multiples, qui facilitent de nombreuses 
structures difficiles à programmer de manière élégante avec des BASIC 
moins élaborés. Nous parlerons ultérieurement des tâches multiples 
dans ce chapitre. 


FICHIERS SUR CASSETTE 


La gestion des entrées-sorties constitue une des tâches importan- 
tes que doit pouvoir faire n'importe quel BASIC. Il sera intéressant 
de voir jusqu’à quel point le BASIC de l’Amstrad sera adapté au lec- 
teur de disquettes lorsque celui-ci pourra être connecté à l'unité cen- 
trale. Pour l'instant, bien sûr, nous devons nous contenter du lec- 
teur de cassettes. Évidemment, un fichier sur cassette est toujours 
séquentiel, et il est facile à créer. Le programme suivant écrit dix nom- 
bres dans un fichier sur cassette intitulé NUMFICHE et les relit ensuite 
(rien que pour le plaisir !) : 


10 OPENOUT ‘’NUMFICHE" 
20 FOR J = 1 TO 10 

30 WRITE #9, J 

40 NEXT J 

50 CLOSEOUT 

60 PRINT ‘’RELECTURE DES DONNÉES" 
70 OPENIN ‘’NUMFICHE" 
80 IF EOF THEN 150 

90 INPUT #9, J 
100 PRINT J 
110 GOTO 80 
150 CLOSEIN 
160 END 


+49. 


Ce programme est peut-être assez simple, mais il est intéressant 
d'observer certains points : 


e Les noms des fichiers peuvent avoir une longueur maximale de 
16 caractères. (Les noms plus longs sont réduits à 16 caractères 
avant d'être utilisés.) 


e Pour placer des données dans un fichier, on emploie ordinaire- 
ment l'instruction WRITE, mais l’on pourrait également utiliser 
PRINT. On préfère généralement WRITE, car cette instruction écrit 
les données d’une manière qui permet à INPUT de les relire 
directement. 


e Le ‘’canal”’ associé aux entrées-sorties du lecteur de cassettes est 
le canal 9, c'est pourquoi nous avons écrit ‘’WRITE #9’. Il n’est 
pas nécessaire de l'utiliser comme une constante. Lors de la mise 
au point d’un programme, il peut être préférable d'écrire, par 
exemple : 


20 OUTFICH =3 
30 WINDOW#3,30,40,1,5 
40 OPENOUT ‘’NUMFICHE" 


100 WRITE #OUTFICH 
150 CLOSEOUT 


De cette manière, nous verrons que les données écrites apparais- 
sent dans une petite fenêtre située en haut à droite de l’écran. Si 
tout semble fonctionner correctement, on peut modifier la ligne 20 
en ‘‘OUTFICH =9" et supprimer la ligne 30. 


Dans l'exemple précédent, les lignes 40 et 150 ne sont utiles que 
si le canal 9 est précisé à la ligne 20, mais elles ne gênent pas l’exé- 
cution du programme. Cependant, OPENOUT (ou OPENIN) affecte 
une zone tampon (un buffer) de 4K ; nous étudierons cela en détail 
plus tard. 


Il peut être rassurant de voir s'afficher des messages sur l’écran pen- 


dant la lecture ou l'écriture de blocs de données sur une cassette, 
mais cela peut parfois être un inconvénient. Ces messages peuvent 
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être supprimés si l’on modifie le nom du fichier dans une instruction 
OPENxx. Voici un exemple : 


OPENOUT “INUMFICHE" 


Le point d'exclamation n’est pas compris dans le nom du fichier, 
mais signifie simplement au système d'exploitation qu'il ne doit pas 
afficher sur l’écran des messages concernant la cassette. 

Au premier abord, vous pourriez peut-être croire qu'il n’y a pas 
de commande de vérification ; certains systèmes en proposent ; vous 
pouvez ainsi vous assurer que la cassette est correctement écrite pen- 
dant que vous avez encore la possibilité d'effectuer une nouvelle copie 
des données où du programme ! 

Ilest vrai que l’Amstrad n’a pas de commande de vérification expli- 
cite, mais il nous offre la commande CAT, qui lit toute une cassette 
et affiche les noms des programmes ou des fichiers qui s’y trouvent. 
Ce n'est pas la même chose, dans le sens où cette instruction ne com- 
pare pas les données de la bande magnétique avec celles qui se trou- 
vent en mémoire, mais ce qui importe est qu’elle puisse vérifier que 
la cassette est correctement lisible. 


PROGRAMMES SUR CASSETTE 


Bien entendu, vous ne stockerez pas uniquement des données sur 
la bande magnétique, mais aussi des programmes. Un simple : 


SAVE ‘’PROG1" 


pourra effectuer la sauvegarde de votre chef-d'œuvre. Il existe plu- 
sieurs manières de le recharger le lendemain. En voici quelques-unes : 


° LOAD ‘’PROG1" évitera tous les autres fichiers, s’il y en a, et char- 
gera PROG1. 


° RUN ‘’PROG1" S'il est trouvé, le programme sera chargé et sera exé- 
cuté sans qu'aucune autre intervention ne soit nécessaire. 


° MERGE ‘’PROG1” effectuera une fusion de PROG1 avec le pro- 
gramme qui se trouve en mémoire, s’il y en a un, et remplacera 
les lignes dont le numéro est identique. Cette instruction est utile 
pour créer une bibliothèque de sous-programmes. 
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° CHAIN ‘’PROG1" Le programme en cours sera effacé de la mémoire 
et PROG sera chargé, puis exécuté, mais les variables du pro- 
gramme en cours seront conservées et pourront ainsi être utilisées 
par PROG1. 


° CHAIN MERGE ‘’PROG1" fonctionne comme CHAIN, mais le pro- 
gramme existant sera conservé intégralement ou en partie (selon 
les numéros de ligne). 


e N'oubliez pas que vous pouvez toujours utiliser les touches CTRL 
et ENTER pour éviter de taper RUN ‘‘”’. 


En résumé, toutes les possibilités de liaisons de programmes que nous 
pouvons souhaiter sont à notre disposition. 

Il n’y a pas que les programmes en BASIC qui peuvent être char- 
gés (avec LOAD) ou sauvegardés (avec SAVE). Des sous-programmes 
en assembleur peuvent être chargés dans des zones de la mémoire, 
supérieures à celle occupée par le BASIC. SAVE et LOAD sont utili- 
sés avec des paramètres supplémentaires qui précisent les positions 
de départ et de fin du sous-programme (de la ‘’routine’’). Les mêmes 
commandes peuvent être employées pour manipuler des tableaux 
situés en mémoire. 

Les sous-programmes en assembleur seront traités dans la quatrième 
partie. 


L'ORGANISATION DE LA MÉMOIRE 


Nous avons indiqué que le BASIC affecte 4K au tampon d’un fichier 
sur cassette, et qu'une partie de la mémoire peut être occupée par 
des sous-programmes. Ces deux exigences entraînent une réduction 
de la place disponible en BASIC, et la mémoire est utilisée en par- 
tant de la zone supérieure de cette limite ; dans un cas, de manière 
automatique (lorsque l’on emploie OPENIN ou OPENOUT), dans 
l’autre cas, grâce à la commande MEMORY qui effectue un ‘‘ajuste- 
ment” de la limite supérieure. 

Lorsque vous mettez le système en marche, l’espace utilisé par 
l'interpréteur BASIC s'étend de l'adresse (en code hexadécimal) &40 
à l'adresse &AB7F, et l'instruction HIMEM, qui donne l'adresse de 
l’octet le plus élevé de la mémoire utilisée par le BASIC, possède la 
valeur &AB7F (ou 43903 en décimal, mais lorsqu'on parle d'adresse 


2.99 = 


la notation hexadécimale est mieux adaptée). Si vous souhaitez lais- 
ser une zone libre — au-dessus de celle utilisée par le BASIC — pour 
une routine en assembleur ou pour toute autre raison, vous devez 
employer la commande MEMORY afin de préserver cette zone. Sup- 
posons que vous chargiez un sous-programme (une routine) long de 
128 octets, qui a été conçu pour être placé à l'adresse &AB0O0. 


10 MEMORY &AAFF REM LIMITER LA ZONE DU BASIC 
SOUS LA ZONE DE LA ROUTINE 


20 LOAD ‘“ISUB1" REM CHARGER LA ROUTINE 
30 SUB1 = &AB00 REM ADRESSE DE LA ROUTINE 


100 CALL SUB1 


Remarquez que la commande LOAD n'affecte pas le programme 
en BASIC qui se trouve déjà en mémoire, car la routine a été sauve- 
gardée sous forme de fichier binaire. En fait, la sauvegarde aurait dû 
être accomplie par une instruction de ce genre : 


SAVE ‘’SUB1”,B,&AB00,&B0,&AB00 


qui permet d'enregistrer sur la cassette l'adresse de départ, la lon- 
gueur et le point d'entrée, de sorte que LOAD puisse ultérieurement 
placer le fichier à la bonne adresse. 


Si vous n'avez besoin d'utiliser la routine SUB1 que d’une manière 
temporaire, vous pourrez par la suite regagner de la place en récu- 
pérant la zone réservée. Si vous ajoutez au programme des instruc- 
tions telles que : 


5 ORIGMEMORY = HIMEM 
et 

200 MEMORY ORIGMEMORY 
vous restaurerez la mémoire sous sa forme initiale. (Mais n’essayez 
plus d'appeler la routine SUB1!) 


Ce qui précède a montré comment le sommet de la zone du BASIC 
peut être manipulé par le programmeur. Si le système a besoin de 


_- 23 - 


4K de mémoire parce que vous avez ouvert un fichier sur cassette, 
il réduira automatiquement la valeur de HIMEM, comme vous pour- 
rez vous en apercevoir si vous entrez : 


PRINT HIMEM 
OPENOUT “TEST” 
PRINT HIMEM 


et vous restituera, s’il le peut, la zone nécessaire au tampon dès qu'il 
aura fini de charger la routine : 


CLOSEOUT 
PRINT HIMEM 


Toutefois, si vous réduisez HIMEM après que les 4K auront été affec- 
tés par le système, celui-ci ne pourra pas ‘’remonter’" HIMEM après 
avoir rencontré l'instruction CLOSEOUT, et il lui laissera sa valeur ! 


OPENOUT "TEST" 
PRINT HIMEM 
MEMORY HIMEM — 1 
CLOSEOUT 

PRINT HIMEM 


Les 4K ne seront quand même pas perdus, car si vous ouvrez par 
la suite un fichier sur cassette, le BASIC utilisera la même zone tam- 
pon au lieu d'en occuper une nouvelle. Malgré tout, vous préfére- 
rez peut-être définir la zone réservée à votre routine avant d'ouvrir 
le moindre fichier sur cassette, et de cette manière le tampon du lec- 
teur de cassette sera libéré après la fermeture du fichier. 

L'utilisation de l'instruction MEMORY où celle du lecteur de cas- 
sette ne sont pas les seules raisons pour lesquelles HIMEM est modli- 
fiée, comme nous le verrons dans le prochain chapitre, qui explique 
également comment sont employés les 128 octets situés entre &ABO0 
et &ABFF. 


LE TRAITEMENT DES TÂCHES MULTIPLES 


Nous avons gardé pour la fin du chapitre l’une des caractéristiques 
les plus intéressantes de ce BASIC : le traitement des tâches multiples. 


SL DE 


Normalement, un programme n’exécute qu’une tâche à la fois. Lors- 
que vous tapez RUN, le programme commence par la première ins- 
truction et se poursuit jusqu’au moment où il rencontrera l’instruc- 
tion END. Évidemment, la plupart des programmes contiennent des 
boucles, car les ordinateurs exécutent les instructions à une très grande 
vitesse ; sans cela les temps d'exécution, même ceux des program- 
mes très longs, seraient extrêmement courts. 

On s'attend parfois à ce que le programme fasse une pause — par 
exemple, afin de recevoir des informations du clavier — mais on sait 
qu'il parcourt les instructions d’une manière prévisible et séquentielle. 

Bien entendu, le système interrompt de temps en temps le dérou- 
lement du programme. Nous savons, par exemple, qu'une interrup- 
tion se produit toutes les 20 millisecondes pour permettre un rafraî- 
chissement de l'écran, de manière à conserver un affichage constant. 
Le système doit également accomplir d’autres corvées ménagères, 
comme l'avance du compteur (TIME) qui fonctionne comme une hor- 
loge du système. 

Le BASIC de l’Amstrad permet à l'utilisateur de demander que son 
programme soit interrompu à des intervalles de temps de son choix 
afin d'effectuer des tâches prioritaires. Chaque tâche a un niveau de 
priorité, et une tâche de priorité inférieure peut être interrompue par 
une tâche ayant une priorité supérieure. Voici un exemple de 
programme : 


10 EVERY 100,0 GOSUB 3000 
10 CLS 
30 … 
999 END 
3000 REM TACHE DE PRIORITE 0 
3010 … 
3999 RETURN 


Le programme principal va de l'instruction 10 à l'instruction 999. 
L'instruction 10 entraîne la création d’une sous-tâche ayant un niveau 
de priorité de 0. Cette tâche (ou sous-tâche) pourra exécuter toutes 
les instructions nécessaires, mais devra tôt où tard atteindre l'instruc- 
tion 3999. 

Après l'instruction 10, le programme principal ne reviendra sans 
doute jamais à cette sous-tâche. Il continuera d'exécuter ses propres 
instructions, sachant que le système d'exploitation a entamé un 
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compte à rebours et que la sous-tâche sera exécutée toutes les 
2 secondes (le compte se fait en cinquantièmes de seconde et nous 
en avons demandé 100 à la ligne 10). 

Quand la sous-tâche (le sous-programme) reçoit le contrôle de l’exé- 
cution à la ligne 3000, elle sait qu’elle possède un contrôle absolu 
sur le déroulement des opérations jusqu’au moment où elle rencon- 
trera l'instruction 3999 et rendra le contrôle au programme princi- 
pal qui poursuivra son travail interrompu. Les sous-tâches ont une 
priorité supérieure à celle du programme principal. 

Il s'agit d'une caractéristique particulièrement utile pour toutes sortes 
d'applications. Dans l'exécution d’un jeu, cela peut servir à dépla- 
cer des figures sur l'écran à intervalles réguliers (voir les jeux dans 
la troisième partie), où à afficher et faire avancer une horloge sur 
l'écran : 


2 ON BREAK GOSUB 3000 

3 CLS 

5 WINDOW #0,1,30,1,25 : WINDOW #1,31,40,25,25 

10 INPUT ‘Donnez les heures, les minutes, les secondes: ”, 

HEURES,MINS,SECS 

20 EVERY 50 GOSUB 2000 

30 FOR J=1 TO 500 

40 PRINT J 

50 NEXT J 

60 GOTO 30 
2000 REM TACHE DE PRIORITE 0 TOUTES LES SECONDES 
2005 SECS = SECS +1 
2010 IF SECS = 60 THEN SECS = O:MINS = MINS +1 
2020 IF MINS = 60 THEN MINS = O:HEURES = HEURS +1 
2030 IF HEURES = 25 THEN HEURES =0 
2100 PRINT #3, USING ‘“‘’##:##:##'":HEURES,MINS,SECS 
2999 RETURN 
3000 REM ARRET 
3010 MODE 1 
3020 STOP 


Le programme précédent nous montre une tâche principale assez 
ennuyeuse allant de la ligne 5 à la ligne 60, une sous-tâche aux lignes 
2000-2999 et un sous-programme, à la ligne 3000, pour arrêter l’exé- 
cution du programme si vous en avez assez. 
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Bien entendu, vous pouvez penser qu'une interruption toutes les 
secondes constitue une servitude inutile. Dans ce cas, modifiez la 
ligne 20 en EVERY 3000 (au lieu de EVERY 50), modifiez la ligne 10 
pour n’entrer que les heures et les minutes, et supprimez l'affichage 
des secondes dans l'exécution de la sous-tâche (ligne 2100). Ainsi, 
votre horloge n’avancera que toutes les minutes. 

Il est deux points importants dont il faut tenir compte lorsqu'on 
construit ce genre de sous-programme : 


° Assurez-vous que le programme principal et le sous-programme 
n'utilisent pas involontairement les mêmes variables. Par exemple, 
si le sous-programme modifiait la variable J, le programme princi- 
pal pourrait donner des résultats imprévisibles ! 


e Si vous exécutez le programme précédent, puis pressez une fois 
sur la touche ESC, le programme s'arrête provisoirement (c’est une 
pause). Si vous pressez ESC une seconde fois, le programme s'arrête 
définitivement (achèvement de l'exécution). Mais si vous pressez 
la barre d'espacement, le programme continue. Faites cela après 
dix secondes de pause, et regardez avec quelle rapidité l'horloge 
se remet à l'heure ! Cela nous montre que le système n'a pas oublié 
les interruptions qu’il n’a pas pu exécuter, mais qu’elles sont enre- 
gistrées et qu'il les exécute plus tard, dès qu'il le peut (jusqu’à un 
maximum d'environ 127 interruptions). 

Ainsi, l'exécution de sous-tâches peut être assez aisée, mais il y a 
quelques précautions à prendre. Dans l'exemple précédent, la sous- 
tâche affichait l'heure dans une fenêtre (window) différente de celle 
utilisée par le programme principal. Que se passerait-il si le sous- 
programme et le programme principal utilisaient la même fenêtre ? 
Envisageons le cas d’un programme qui possède le sous-programme 
suivant : 


100 LOCATE X,Y 
104 PEN 2 

106 PRINT A,B,C 
110 FOR J=1 TO 25 
120 … 


et une sous-tâche contenant cette instruction : 


4020 LOCATE XPLACE,YPLACE : PEN3 : PRINT A$ 


297. 


Si l'interruption de la sous-tâche se produit entre les instructions 
106 et 110, ou entre 110 et 120, tout peut aller pour le mieux, mais 
vous verrez ce qui se passe si l'interruption a lieu quand le programme 
se trouve entre les lignes 100 et 104 — nous nous sommes soigneu- 
sement placés en X,Y et, avant d’avoir la moindre chance d'afficher 
quoi que ce soit, nous sommes entraînés à la position 
XPLACE,YPLACE. Lorsque l'exécution de la sous-tâche se termine (par 
une instruction RETURN), le programme principal passe en PEN 2 
et affiche À, B et € — mais bien entendu il y a très peu de chances 
pour que la position soit alors correcte et le résultat paraîtra plutôt 
bizarre. 

Le problème est encore plus grave si l'interruption se produit après 
l'exécution de l'instruction 104 ; non seulement les valeurs qui s'affi- 
cheront ensuite seront mal placées, mais leur couleur sera incorrecte ! 

Fort heureusement, ce problème peut facilement être évité si on 
a bien compris pourquoi il risque de se poser. Le BASIC de l’Amstrad 
nous offre les instructions DI (Disable Interrupt, annulation d'une inter- 
ruption) et El (Enable Interrupt, rétablissement d’une interruption) ; 
nous pouvons les placer au début et à la fin des passages délicats 
du programme. Dans l'exemple précédent : 


99 DI 
108 EI 


pourraient résoudre notre problème, en nous assurant que nous ne 
risquons pas d’être interrompus entre le positionnement (ligne 100) 
et l'affichage (ligne 106). Naturellement, nous devons limiter autant 
que possible le nombre des instructions situées entre DI et El, car 
nous ne souhaitons pas que les interruptions demeurent trop long- 
temps dans la ‘’file d'attente” ; cependant, nous savons qu'elles ne 
seront pas oubliées, mais simplement retardées, et que rien ne sera 
perdu. 

Ne confondons pas les ‘‘’interruptions’”” dont nous parlons ici avec 
les interruptions du système qui se produisent au moins toutes les 
20 millisecondes. DI n’a aucun effet sur les interruptions propres au 
système. 

L'exemple précédent nous a montré une sous-tâche, mais on peut 
en avoir jusqu'à 4 au maximum, ce qui fait un total de 5 si l’on compte 
le programme principal. Le numéro de la sous-tâche, de 0 à 3, est 
indiqué par le second paramètre de l'instruction EVERY, comme ceci : 


99 > 


10 EVERY 100,1 GOSUB 1500 
20 EVERY 80,2 GOSUB 3400 


Ces deux lignes introduisent deux sous-tâches, numérotées 1 et 2. 
Comme d'habitude, 0 est le numéro de tâche ‘‘par défaut” (implicite). 


Il s'agit ici d’une priorité stricte ; la sous-tâche n° 3 ayant la prio- 
rité maximale et le programme principal ayant la priorité minimale. 
Par conséquent, si une sous-tâche de priorité 1 est en cours d'exécu- 
tion, elle peut être interrompue par une sous-tâche de priorité 2 ou 
3, mais les interruptions associées à une sous-tâche de priorité O seront 
‘‘’retardées’” jusqu'à la fin de l'exécution de la sous-tâche 1, qui pas- 
sera alors le contrôle à la sous-tâche 0 au lieu de le rendre au pro- 
gramme principal. 


Jusqu'à présent, nous avons simplement cité la commande EVERY, 
qui permet des interruptions régulières. Il existe également la com- 
mande AFTER, qui ne produit qu'une interruption. 

Bien entendu, une sous-tâche peut lancer une autre sous-tâche, 
ou se relancer elle-même. Nous pouvons avoir : 


10 AFTER 1000 GOSUB 3000 
3000 REM SOUS-TACHE 0 


3100 AFTER 500 GOSUB 3000 
3110 RETURN 


La fonction REMAIN nous est également très utile pour empêcher 
des interruptions ultérieures. REMAIN (numéro de sous-tâche) annule 
toutes les interruptions en attente associées à la sous-tâche en ques- 
tion. Dans tous les cas, les sous-tâches sont annulées lorsque le pro- 
gramme rencontre une commande END. 


QUELQUES MOTS D'AVERTISSEMENT 
Vous pouvez vous rendre compte que la création des sous-tâches 


vous est particulièrement facilitée. Les quelques rares pièges possi- 
bles peuvent être aisément évités. 
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Piège n° 1 
Nous en avons déjà parlé. Vérifiez que vous n’employez pas invo- 
lontairement dans une sous-tâche une variable qui est également uti- 


lisée dans un autre sous-programme où dans le programme princi- 
pal, car vous risqueriez d'obtenir des résultats imprévisibles. 


Piège n° 2 


Assurez-vous de placer entre DI et El les parties de programme qui 
ne doivent pas être interrompues. 


Piège n° 3 

Il est inutile d'écrire EVERY 50 GOSUB 3000 s’il faut plus d’une 
seconde pour exécuter la sous-tâche qui débute en 3000 ! Vous res- 
terez tout le temps dans la sous-tâche et le programme principal n'aura 
jamais l’occasion de reprendre le contrôle... Si cela s'avère néces- 
saire, Vous pouvez vérifier la durée d'exécution d’un sous-programme 
en plaçant au début l'instruction T=TIME, et à la fin l'instruction 


PRINT TIME-T. La valeur affichée donnera la durée (l'unité est le 
1/300 de seconde). 


En résumé, les commandes d'interruption et de traitement de tâches 
multiples de l’Amstrad sont remarquablement utiles et puissantes ; 
elles permettent de traiter facilement des situations qui seraient com- 
plexes avec d’autres BASIC. 


EXTENSIONS FUTURES 


Un excellent présage pour l'avenir est que le BASIC est conçu pour 
être étendu, et les extensions futures ne devraient pas être des brico- 
lages à retardement (comme c'est manifestement le cas dans bien 
d’autres systèmes !). La syntaxe est la suivante : les commandes pré- 
cédées d’une barre verticale ‘‘l” seront considérées par le BASIC 
comme des commandes externes, c’est-à-dire des commandes qui 
seront traitées par une autre ROM. 

Reste à savoir comment cela fonctionnera ; mais le contrôleur de 
disquette de l’Amstrad contiendra sans doute une ROM qui compor- 
tera quelques nouvelles commandes en BASIC afin de permettre l’affi- 
chage des catalogues de disquettes, la lecture et l'écriture de fichiers 
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à accès direct, etc. Grâce à cette convention concernant les ‘’com- 
mandes externes’’, la nouvelle ROM pourra effectivement étendre 
les capacités de la ROM actuelle, en remplaçant des fonctions exis- 
tantes ou en rajoutant de nouvelles fonctions. 

Ce n’est encore qu’une simple conjecture, mais ce serait une 
méthode beaucoup moins coûteuse et moins douloureuse que la 
méthode (classique !) consistant à retirer les anciennes ROM pour 
les remplacer par des nouvelles ! 


3 
TOUCHES ET CARACTÈRES 


Le clavier de l’Amstrad est d’une conception très satisfaisante, à la 
fois par son confort d'utilisation et grâce au logiciel qui lui est asso- 
cié. Dans ce chapitre, nous examinerons la police de caractères de 
l’Amstrad, les moyens de la modifier et la manière dont le clavier peut 
être adapté à vos besoins. 


CARACTÈRES DÉFINIS PAR L'UTILISATEUR 


Au cours du Chapitre 2, nous avons vu comment la limite supé- 
rieure du BASIC pouvait être ‘’remontée’’ ou ‘‘’abaissée’””’. Il existe 
une autre fonction du BASIC qui provoque une réduction de la valeur 
de HIMEM : c'est la commande SYMBOL AFTER. L'Amstrad autorise 
l'affichage de 256 caractères différents. Normalement, les 32 premiers 
caractères ne sont pas visibles, car ils sont interprétés comme des 
caractères de contrôle, mais en fait vous pouvez les afficher en les 
faisant précéder de CHR$(1). 


10 REM AFFICHAGE DE TOUS LES CARACTERES, O0 A 255 
20 FOR J=0 TO 31 

30 PRINT CHR$(1); 

40 PRINT CHRS$(J); 

50 NEXT J 

60 FOR J=32 TO 255 

70 PRINT CHRS$(J); 

80 NEXT J 

90 END 


Une caractéristique très utile de l’Amstrad permet à n'importe lequel 
de ces 256 caractères d’être remplacé par un autre, et c’est pour- 
quoi vous pouvez concevoir des caractères spéciaux qui Vous con- 
viennent. Quand vous mettez en marche le système, vous disposez 
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déjà de la possibilité de redéfinir jusqu’à 16 caractères (les numéros 
240 à 256), mais vous pouvez améliorer cette possibilité afin de pou- 
voir redéfinir les 256 caractères si vous le désirez. 

Comme les définitions des caractères sont normalement contenues 
en ROM (sauf celles des 16 derniers caractères) et que vos propres 
définitions devront évidemment se trouver en RAM, le système doit 
disposer d’une zone réservée ; c’est pourquoi la valeur de HIMEM 
est réduite si vous entrez la commande SYMBOL AFTER. L'instruc- 
tion SYMBOL AFTER 200 signifie que vous souhaitez pouvoir redéfi- 
nir tous les caractères à partir du 200€. SYMBOL AFTER 0 permet de 
redéfinir les 256 caractères. 

Ayant utilisé SYMBOL AFTER, si cela s'avère nécessaire (n'oubliez 
pas qu'il existe implicitement un SYMBOL AFTER 240 lorsque vous 
déclenchez le système) vous pouvez utiliser la commande SYMBOL 
pour définir le nouveau caractère. Chaque caractère est considéré 
comme une matrice de 8 x 8 pixels ; vous placez un pixel à l'état 
‘ON’ (affichage) en lui donnant la valeur 1 ou vous le placez à l’état 
‘’OFF’” (non-affichage) en lui donnant la valeur O0, en commençant 
par la première rangée de la matrice. Le caractère À — CHR$(65) —, 
par exemple, pourrait être défini comme ceci : 


SYMBOL 65, &18,8&3C,&66,&66,&7E,&66,&66,0 


...*+x... &18 
+kkxx,,  &3C 
.**+,.*x*,  &66 
.**,.**+,  &66 
kkXXXX &7E 
.+**x,,*%x,. &66 
.**x,,#%x,  &66 
sets &O00 


Ne nous imaginons pas qu’un pixel est identique à un simple point 
de l'écran. Cela est exact en mode 2 (haute résolution) ; mais en mode 
1, un pixel est représenté par deux points, et en mode 0 par quatre 
points. 

Remarquons que si nous entrons une seconde commande SYMBOL 
AFTER, tous les caractères redéfinis précédemment seront effacés ! 
De plus, si vous avez ajusté la limite supérieure de la zone utilisée 
par le BASIC depuis votre dernière commande SYMBOL AFTER, le 
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système refusera la nouvelle commande SYMBOL AFTER. Cela expli- 
que pourquoi vous ne pouvez pas employer MEMORY afin de pré- 
server une zone pour un sous-programme, et lancer ensuite une ins- 
truction SYMBOL AFTER. Le système a exécuté sa commande impli- 
cite SYMBOL AFTER 240 lorsqu'il a déclenché le BASIC, et vous dépla- 
cez ensuite la limite supérieure grâce à une commande MEMORY. 
Le remède consiste à lancer l'instruction SYMBOL AFTER avant toute 
commande MEMORY ou avant d'utiliser un fichier sur cassette. 

En fait, c'est dans les 128 octets commençant à l'adresse &AB80 
que le système stocke les définitions des caractères 240 à 255, à rai- 
son de 8 octets par caractère. 


ÉTUDE DE CARACTÈRES 


Le programme qui suit peut vous servir à tester vos propres carac- 
tères. Il utilise le MODE O0 pour plus de clarté. Employez les touches 
flèches pour vous déplacer dans la matrice. En pressant la touche A, 
quelle que soit votre position, vous mettez le pixel associé au cur- 
seur à l'état "ON" (allumé), en pressant E vous éteignez le pixel (‘’non- 
affichage”), et en pressant Q vous arrêtez le programme et faites affi- 
cher la définition utilisée par la commande SYMBOL. Le caractère 
est affiché au format réel à mesure qu'il est défini, et le code hexadé- 
cimal de chaque rangée de pixels est affiché pour vous permettre de 
mieux saisir comment le caractère est défini dans une commande 
SYMBOL. 


1 REM DEFINITIONS DES CARACTERES PAR L'UTILISATEUR 


S ON BKREAF GOSUE 6000 


10 GOSUER 1000 : REM initialisation 
20 GOSUEH 2000 : REM conception des caractères 
T0 END 


1000 MODE © 
1010 LOCATE 1,1 

1020 FOR RAN=1 TO 8 
1070 FOR COL=1 TO 8 
1040  FRINT ". "; 


1050 NEXT COL 


10860 


19890 


1090 


1100 


2010 


2015 


2020 


2030 


2035 


2040 


2045 


2060 


2070 


2080 


FRINT "O0" 

PRINT 

NEXT RAN 

LOCATE 5,22 : PRINT "Tapez À (Allumer), E (Eteindre), 
O (Quitter) ou pressez une touche fléchée." 

WINDOW #1,10,10,20,20 

PEN #1,2 

SYMEOL AFTER 128 

DIM PRAN(8,8) ,PXRAN (8) 

GOSUER 2000 : REM DEFINIR CARACTERE 128 

DOT#-CHRS# (143) 

UNDOT#="." 

DOTCURSOR#=CHR# (127) 

UNDOTEURSOR#+="#" 

LOCATE 1,1 =: X=1 : Y=1 : PRINT UNDOTCURSOR$#; 

RETURN 

REM 

Z$=INKEYS$ : IF Z$="" THEN 2010 

Z#=UPPERS (Z#) 

Z=INSTR ("AEQ"+CHR$# (240) +CHR$ (241) +CHR$ (242) +C 
HR# (243) ,Z#) 

IF Z=0 THEN 2010 

NX=O : NY=0 

ON Z GOSUB 2100,2200,2300,2400,2500,2600,2700 

LOCATE X#2-1,Y#2-1 

IF PRAN(X,Y)=1 THEN PRINT DOT#; ELSE PRINT UNDOT#; 

X=X+NX : Y=Y+4+NY : LOCATE Xx2-1,Y*2-1 

IF PRAN(X,Y)=1 THEN PRINT DOTCURSOR#; ELSE 
PRINT UNDOTCURSOR# ; 

LOCATE 19,Y#2-1 : PRINT " “ : LOCATE 19,Y*x2-1 : 


PRINT HEX#(PXRAN(Y)) 


2090 


2095 


2099 


2100 


2110 


2120 


2199 


2210 


2220 


2299 


23500 


2310 


2320 


2330 


2340 


2350 


2360 


2400 


2410 


2499 


2500 


2510 


2599 


2600 


2619 


2699 


2700 


2710 


2799 


GOSUB 3000 

PRINT #1,CHR$ (128) ; 

GOTO 2010 

REM À CALLUMER) 

PRAN(X,Y)=1 

PXRANCY)=PXRAN(Y) OR 27 (8-X) 

RETURN 

REM E (ETEINDRE) 

PRAN(X ,Y) =0 

PXRAN(Y)=PXRANCY) XOR 2° (8-X) 

RETURN 

REM Q (QUITTER) 

LOCATE 1,22 : PRINT CHR$ (20) ; : PRINT 
"CARACTERE X,"; 

FOR RAN=1 TO 7 

PRINT “&"3;HEXS$ (PXRAN CRAN) ) 5" ,"3 

NEXT RAN 

PRINT “&'3;HEXS$ (PXRAN CRAN) ) ; 

END 

REM FLECHE HAUT 

IF Y>1 THEN NY=1 

RETURN 

REM FLECHE BAS 

IF Y<B THEN NY=1 

RETURN 

REM FLECHE GAUCHE 

IF X>1 THEN NX=-1 

RETURN 

REM FLECHE DROITE 

IF X<8 THEN NX=-1 


RETURN 
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3000 REM DEFINITION CARACTERE 128 

3010 SYMBOL 128,PXRAN(1) ,PXRAN(2) ,PXRAN(S) ,PXRAN( 
4) ,PXRAN (5) ,PXRAN (8) ,PXRAN(7) ,PXRAN (8) 

3999 RETURN 

6000 REM ARRET 

6010 MODE 1 


6020 STOP 


CARACTÈRES SUR LA TOUCHE 


Si vous créez vos propres caractères en employant la méthode 
décrite précédemment, vous voudrez peut-être pouvoir les afficher 
sur l’écran en frappant simplement une touche plutôt qu’en entrant, 
par exemple, PRINT CHR$(220). Cela peut se faire assez facilement 
car l’Amstrad vous permet de redéfinir n'importe quelle touche en 
lui donnant n'importe quelle valeur — ou plus exactement n'importe 
laquelle parmi 3 valeurs, car la touche peut être ‘’normale’”, ou bien 
utilisée en pressant simultanément la touche CTRL ou la touche SHIFT. 

De plus, vous pouvez choisir ou non la répétition automatique d’une 
touche, c’est-à-dire la répétition de l'affichage d’un caractère tant que 
la touche est maintenue enfoncée. Vous pouvez même tester la vitesse 
de répétition pour trouver une vitesse qui vous convient, grâce à la 
commande SPEED KEY. 

Pour comprendre cela, vous devez savoir que chaque touche pos- 
sède un numéro. Vous devez penser que la deuxième touche de la 
troisième rangée, en partant de la gauche, est la ‘‘touche A”, mais 
c'est uniquement par convention qu'elle affiche la lettre À, et elle 
peut être modifiée, si vous le désirez, pour vous fournir un autre carac- 
tère. Mais le numéro de la touche ne change jamais — ou plutôt 
devrions-nous dire le numéro de la touche ou du joystick (manette 
de jeu) car les manettes de jeu sont considérées comme faisant par- 
tie du clavier. 

Un tableau présentant les numéros des clefs est contenu dans le 
manuel de l’Amstrad, Appendice III, page A3.16. En se référant au 
numéro de la touche, nous pouvons modifier le caractère associé à 
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une touche quelconque, soit lors d’une frappe simple, soit lorsqu'elle 
est frappée conjointement avec une pression sur la touche SHIFT ou 
la touche CTRL. Par exemple : 


KEY DEF 69,1,&62,&42,2 


indique au système de modifier la touche 69 (qui donne normale- 
ment a, À, ou CTRL-—A) pour faire en sorte qu’elle donne b, B ou 
CTRL-B. La valeur 1 signifie que nous souhaitons une répétition du 
caractère tant que la touche est enfoncée. Faites un essai ! 

L'ensemble du clavier peut être reprogrammé de cette manière si 
vous le désirez (sauf les touches SHIFT et CTRL), et vous pouvez ainsi 
transformer le clavier QWERTY en un clavier DVORAK, où en un 
clavier AZERTY (sans pouvoir toutefois changer les caractères dispo- 
sés sur les touches elles-mêmes, malheureusement). 

Transformer la touche A pour qu’elle donne la lettre B ne paraît 
pas très sensé, mais vous pouvez aussi bien la modifier pour qu'elle 
vous donne un caractère peu usité, que vous aurez défini vous-même. 
Supposons que vous ayez utilisé la commande SYMBOL pour créer 
3 symboles graphiques, 220, 221 et 222. Vous pouvez peut-être éga- 
lement vous dispenser pendant un moment des touches de crochets. 

En vous référant à l’Appendice 111 du manuel de l’Amstrad, vous 
verrez que le numéro de la touche du crochet gauche est le 17 et 
que celui du crochet droit est le 19. Vous pouvez alors entrer l'ins- 
truction suivante : 


KEY DEF 17,1,220,221,222 


qui modifiera la touche du crochet gauche afin qu'elle affiche le 
symbole 220 en mode ‘‘'normal”’, le caractère 221 en mode majus- 
cule (SHIFT) et le symbole 222 si on frappe la touche en pressant simul- 
tanément CTRL. (La valeur 1 signifie que la répétition est validée.) 
La touche 19 peut être préservée pour d’autres usages. 

En examinant le clavier, nous verrons qu'il y a de nombreuses tou- 
ches ‘‘de réserve” qui peuvent être employées de cette manière. 


DES PHRASES ENTIÈRES SUR UNE TOUCHE 


On pourrait penser que l'exemple précédent à démontré la grande 
flexibilité du clavier de Amstrad. Mais ce n’est pas tout ! Vous pou- 
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vez redéfinir n'importe quelle touche pour que, lorsqu'on la presse, 
elle affiche une phrase entière plutôt qu’un seul caractère. 

Cela est possible en réservant certaines valeurs (entre 128 et 140) 
comme étant des ‘’caractères d'expansion”. Lorsqu'une touche donne 
une de ces valeurs, le système consulte un ‘tableau des phrases” 
(il s'agit de chaînes de caractères) et en extrait le caractère ou la chaîne 
appropriée. Ainsi, le caractère d'expansion 128 peut faire afficher LIST, 
le caractère 129 peut faire afficher RENUM, etc. 

En fait, le système prévoit, ‘’par défaut’’, que les touches du pavé 
numérique donnent les valeurs 128 à 140, qui sont définies au départ 
pour afficher les valeurs ‘‘0’’ à ‘‘9’’ du code ASCII, plus le point déci- 
mal. De plus, la petite touche ENTER du pavé numérique a été défi- 
nie de telle sorte que, si on la presse simultanément avec la touche 
CTRL, la chaîne RUN ‘’+CHR$(13) soit affichée. Cela explique pour- 
quoi, dans ce cas, il faut utiliser la petite touche ENTER, et non la 
grande. 

Cet emploi des caractères d'expansion et l’état initial du ‘’tableau 
de chaînes’’ sont présentés dans le manuel, Appendice III, page 13.15. 

En tapant la commande KEY (qu'il ne faut pas confondre avec la 
commande KEY DEF employée précédemment), vous pouvez éta- 
blir une liste de chaînes dont chacune sera associée à un caractère 
d'expansion particulier. Par exemple, si vous écrivez un long pro- 
gramme qui utilise différentes couleurs, encres, etc., vous pourriez 
apprécier de disposer d’une chaîne comme celle-ci : 


CLS:INK 0O,1:INK 1,24: PAPER O:PEN T:LIST 


qui redonnerait à l'écran une présentation convenable. Mais cette 
instruction est assez longue à entrer, surtout si vous écrivez en vert 
vif sur un fond vert citron ! 

Malheureusement, vous ne pouvez pas assigner toute la chaîne à 
une seule touche, car la limite est de 32 caractères par chaîne. Mais 
vous pouvez la couper en deux parties. 


KEY 138,CHR$(13) + ""CLS:INK O,1:INK 1,24" + CHR$(13) 
KEY 139,CHR$(13) + "PAPER O:PENT:LIST"" + CHR$(13) 


Ces deux lignes permettront à la touche du point décimal et à la 
petite touche ENTER d'afficher les instructions voulues quand vous 
le désirerez. 
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Tout cela fait montre d’une considérable ingéniosité. Par exemple, 
si vous définissez une touche pour qu'elle affiche LIST, vous pour- 
vez, soit enfermer la chaîne entre deux CHR$(13) afin qu'une pres- 
sion sur la touche puisse produire immédiatement un défilement du 
programme, soit ne pas inclure le second CHR$(13) de fin de ligne. 
Dans ce dernier cas, la commande LIST est affichée, mais le système 
attend que vous complétiez l'instruction. Vous pouvez alors choisir 
de presser la touche ENTER (la grande touche, pas la petite), ou de 
sélectionner les lignes du programme qui seront affichées. 

Deux questions peuvent se poser à vous : 


e Que se passe-t-il si vous souhaitez, par exemple, que la touche 
‘7! du pavé numérique affiche le CHR$(135) au lieu de considé- 
rer 135 comme un caractère d'expansion à chercher dans le tableau 
des chaînes ? La réponse consiste simplement à insérer CHR$(135) 
dans le tableau des chaînes : 


KEY 135,CHR$(135) 


e Que se passe-t-il si vous lisez les informations en provenance du 
clavier en utilisant la fonction INKEY$ et qu’une des touches pres- 
sées donne une chaîne d'expansion ? La réponse est que la fonc- 
tion INKEY$ prendra comme valeur le premier caractère de la 
chaîne ; les instructions INKEY$ suivantes vous donneront les autres 
caractères de la chaîne. 


Cette caractéristique vous offre une remarquable souplesse, et elle 
manque à de nombreux systèmes plus gros et plus coûteux. Employée 
à bon escient, elle peut faire gagner beaucoup de temps. Les restric- 
tions sont qu'aucune chaîne ne peut posséder plus de 32 caractères 
et que le total des caractères d'expansion ne peut pas être supérieur 
à 100 — vous ne pouvez donc pas définir les touches pour qu’elles 
affichent tous les mots clefs du BASIC. 

N'oubliez pas que vous n'êtes pas tenu de vous limiter au pavé 
numérique. Chaque touche du clavier peut être définie pour don- 
ner une valeur comprise entre 128 et 159 grâce à la commande KEY 
DEF, et il vous est ensuite possible d'employer KEY pour assigner une 
chaîne à la touche ainsi définie. 

N'oubliez pas non plus que chaque touche est capable de produire 
3 caractères ‘’normaux’”" ou 3 caractères d'expansion, puisqu’une tou- 
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CRT] 


che est définie pour une frappe ‘‘en minuscule”, ‘en majuscule’” (avec 
SHIFT) et conjointement avec CTRL. 

C'est simple ! Mais un avertissement est quand même nécessaire : 
n'oubliez pas que la touche CAPS LOCK peut placer automatique- 
ment une touche en majuscule et que, si vous avez défini l'état de 
cette touche en position majuscule en lui assignant une chaîne de 
caractères, vous risquez d’avoir des surprises. Et ne cherchez pas 
à modifier la touche ESC. Apparemment, cela dérange le BASIC et 
le système risquerait de se réinitialiser de manière imprévisible. 


LE TAMPON ASSOCIÉ AU CLAVIER 


Afin d'achever notre exploration du clavier, nous devons encore 
examiner le tampon qui lui est associé. Sur de nombreuses machi- 
nes, vous risquez de perdre un caractère parce que le BASIC est trop 
lent pour votre vitesse de frappe. C'est affreusement ennuyeux. Mais 
toutes les 20 ms le BASIC de l’Amstrad effectue une vérification afin 
de savoir si une touche a été pressée, et dans l’affirmative il place 
le caractère correspondant dans un tampon. Lorsque vous travaillez 
en utilisant INKEY$, le système n'attend pas immédiatement qu'une 
touche soit pressée, mais prend le premier caractère en attente dans 
le tampon, s’il s’en trouve un. Vous pouvez donc entrer Vos caractè- 
res indépendamment de ce qu’accomplit le programme. Pour le véri- 
fier, exécutez le programme suivant : 


10 FOR J=1 TO 10 

20 Z$=INKEYS:IF Z$ =" THEN 20 
30 FOR J1=1 TO 1000:NEXT J1 
40 PRINT Z$;" ”; 

50 NEXT J 


et observez comment le système progresse vaillamment, sans ren- 
verser une seule goutte. 
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4 
LA SPLENDEUR DU TECHNICOLOR 


Dans ce chapitre, nous étudierons l'écran de l’Amstrad, comment 
cet écran est géré et comment s'effectue la sélection des couleurs. 
Cela nous donnera une base avant de passer à des possibilités gra- 
phiques plus étendues. 

Toute sélection de couleur doit s'appuyer sur une compréhension 
claire des éléments que nous offre le BASIC. (Espérons que vous dis- 
posez d’un moniteur couleur.) 


LA MÉMOIRE ÉCRAN 


L'écran de l’Amstrad peut parfois sembler bien paisible, mais en 
vérité il accomplit constamment une activité frénétique. Un moni- 
teur ou un poste de TV ne retient pas longtemps une image ; il doit 
être ‘‘rafraîchi’” à intervalles fréquents. Dans le cas de l’Amstrad, le 
système ‘’repeint”” l’ensemble de l'écran 50 fois par seconde, c’est- 
à-dire toutes les 20 ms. Comme l'œil humain ne peut pas suivre à 
une telle vitesse, l’image de l’écran lui apparaît fixe. 

Les données ou les images affichées sur l'écran sont contenues dans 
une zone de la mémoire principale de l'ordinateur, débutant nor- 
malement à l'adresse &C000 (mais voyez le Chapitre 5). Si nous écri- 
vons quelque chose dans cette zone, cela sera affiché sur l’écran en 
20 ms, c’est-à-dire la prochaine fois que l’écran sera rafraîchi. L'affi- 
chage nous semblera donc instantané. 

Malheureusement, vous ne parviendrez pas à écrire des données 
cohérentes sur l'écran en utilisant POKE pour les placer en mémoire 
à partir de l'adresse &C000. La raison en est que la topographie de 
la mémoire de l'écran est très compliquée ; un simple octet ne cor- 
respond pas à un caractère, et une instruction POKE &C000,65, par 
exemple, ne fera pas apparaître un À majuscule en haut à gauche 
de l'écran. Malheureusement ! 
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La complexité de la zone mémoire associée à l'écran ne nous 
occupe généralement pas, car il y a des programmes, à la fois en BASIC 
et en assembleur, pour gérer l'écran à notre place. Si vous pensez 
qu’il vous faut absolument connaître la relation entre les pixels et les 
octets, vous devrez vous procurer le manuel technique de l’Amstrad. 


MODE D'AFFICHAGE 


Nous avons le choix entre 3 types d'affichage. Il existe 3 modes 
d'écran utilisables, et à tout instant notre choix représentera une rela- 
tion entre la couleur et la résolution. Chaque pixel (‘la plus petite 
portion d’écran’’ adressable) doit être défini individuellement. 

En mode 1, qui est le mode ‘‘par défaut’ dans lequel se place le 
système lors de sa mise en marche, nous avons 25 rangées de 
40 colonnes, autrement dit 1 000 caractères à définir en mémoire, 
et la zone associée à l’écran dans l’Amstrad est de 16K, allant géné- 
ralement de l’adresse &C000 à l’adresse &FFFF. Il y a donc 16 octets 
par caractère, plus quelques octets laissés pour compte. 

Comme nous l’avons vu dans le Chapitre 3 (caractères définis par 
l'utilisateur), un caractère consiste en fait en une matrice de 64 pixels, 
et il y a donc 16/64 octets par pixel, c'est-à-dire 2 bits. Avec 2 bits, 
on peut représenter 4 états : 00, 01, 10 ou 11 (autrement dit : O, 1, 
2 ou 3). On peut donc considérer chaque pixel comme ayant une 
couleur parmi quatre — mais pas plus. 

Maintenant, vous devriez facilement comprendre pourquoi le mode 
0 permet d’avoir 16 couleurs (parce qu’il y a 4 bits par pixel) et pour- 
quoi le mode 2 n’en autorise que 2 (il n’y a qu'un seul bit par pixel !) 
Dans tous les modes, la zone mémoire allouée à l'écran est toujours 
de 16K. 


UN TEST SUR LES COULEURS 


Donc, en revenant au mode par défaut, le mode 1, nous sommes 
constamment limités à 4 couleurs (bien que toutes les couleurs puis- 
sent être affichées par clignotement, en faisant alterner 2 couleurs, 
si vous tenez vraiment à finir par avoir mal au crâne !). Commen- 
çons par réinitialiser le système. Le signal READY s'affiche en jaune 
sur fond bleu — si vous possédez un moniteur couleur ! Manifeste- 
ment, seules 2 des 4 couleurs disponibles sont mises en évidence pour 
l'instant. 
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Entrez le petit programme suivant : 


10 CLS 
20 GOSUB 1000 
30 END 
1000 FOR J=1TO5 
1010 PRINT J; 
1020 NEXT J 
1030 PRINT 
1040 RETURN 


Exécutez le programme. Nous comparons souvent l'écriture des 
caractères sur l'écran à l’utilisation d’un stylo sur du papier. Nous 
pouvons donc dire que le papier est bleu et que nous avons écrit 
avec un stylo jaune. 

Entrez maintenant les modifications suivantes dans le programme 
précédent : 


30 PEN 2 

40 GOSUB 1000 
50 PEN 3 

60 GOSUB 1000 
70 END 


et vous devriez voir 3 séries de caractères sur l'écran, chacune étant 
d’une couleur différente. Avec le fond bleu, cela nous donne bien 
4 couleurs. (Il est exact que nous pourrions colorer la bordure avec 
une cinquième couleur permanente, ou avec une cinquième et une 
sixième couleurs qui apparaîtraient alternativement ; cependant, nous 
ne pouvons rien faire de la bordure, à part la colorer, et elle n’est 
pas prise en compte dans les 16K de la mémoire écran. Elle sera donc 
ignorée durant le reste de cette étude.) 

Si nous passions en mode 0, nous pourrions afficher 15 séries de 
caractères, chacune d’une couleur différente, en ajoutant PEN 4, 
PEN 5, etc. Nous pourrions imaginer PEN comme un moyen nous 
permettant de sélectionner des couleurs sur une palette limitée à un 
maximum de 16 couleurs (mode 0), de 4 couleurs (mode 1) ou de 
2 couleurs (mode 2). Il est vrai que nous avons 27 couleurs dans notre 
boîte de peintures, mais nous sommes limités dans notre manière de 
les employer, car il faudrait 5 bits par pixel pour pouvoir sélection- 
ner 27 couleurs (avec quelques combinaisons de réserve). 
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L'ARTISTE AU TRAVAIL 


La commande INK nous permet de changer les couleurs de notre 
palette. Elle indique au système laquelle des 4 couleurs nous vour- 
lons changer (premier paramètre) et quelle couleur nous allons met- 
tre à la place (second paramètre). Quelle que soit la couleur que nous 
utilisions auparavant, elle est rangée dans la boîte. Ainsi, bien que 
nous soyons contraints à n’utiliser que 4 couleurs au maximum (en 
mode 1), nous pouvons choisir n'importe lesquelles parmi les 
27 couleurs disponibles. 

Essayez, par exemple : 


INK 2,4 


et la seconde série de chiffres (en fait, tout ce qui est écrit sur l'écran 
avec PEN 2 — le ‘’stylo’’ 2) passera instantanément du turquoise vif 
au magenta. 

N'importe laquelle des 4 ‘’couleurs’’ peut être en réalité un jeu de 
2 couleurs intermittentes. Essayez : 


INK 1,20,8 


et la première série de chiffres, qui a été écrite avec PEN 1, clignote 
en passant alternativement de la couleur 20 (turquoise vif) à la cou- 
leur 8 (magenta vif). 

Il faut admettre que l’analogie de la palette commence maintenant 
à paraître un peu sommaire, puisqu’en changeant simplement l'encre 
de la palette nous modifions également la couleur de l'écran, pour 
peu qu’une petite partie de cette encre soit utilisée. L'artiste peint 
à la vitesse de l’éclair ! 

Un dernier mot d'explication sur la commande INK s'avère peut- 
être nécessaire. En mode 1, nous l’avons déjà vu, nous sommes limi- 
tés à 4 couleurs. Elles sont définies avec PEN et dans le premier para- 
mètre de la commande INK, où l’on peut leur donner une valeur allant 
de 0 à 3. Lorsqu'on fait démarrer le système, le papier sur lequel on 
‘écrit’ est défini par INK O0, et le ‘’stylo’’ par INK 1. Dans le pro- 
gramme précédent, nous avons écrit une suite de chiffres en utili- 
sant l’encre initiale des stylos — c’est-à-dire 1 — puis nous avons pris 
le stylo 2, puis le stylo 3. Nous n'avons pas modifié la couleur du 
papier, qui a conservé la couleur de l'encre 0. (Essayez donc de la 
changer. Par exemple, entrez simplement INK 0,6 et vous verrez dis- 
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paraître la troisième série de chiffres, puisque vous l'aurez alors écrite 
au stylo rouge sur du papier rouge.) 

Tout comme nous pouvons poser un stylo pour en prendre un autre 
(la commande PEN), nous pouvons choisir un autre papier en utili- 
sant la commande PAPER. PAPER 2 donne au ‘‘fond’’ de l'écran la 
couleur qui a été assignée à INK 2 pour toutes les applications 
ultérieures. 

Ilest important de comprendre qu’en entrant PAPER 2 ou PAPER 3, 
par exemple, vous ne modifiez pas ce qui se trouve déjà sur l'écran, 
mais seulement ce qui sera écrit par la suite, et donc que des instruc- 
tions ultérieures comme INK 2,4 ou INK 0,6 auront un effet immé- 
diat (et souvent spectaculaire). 


COULEURS LOGIQUES CONTRE COULEURS PHYSIQUES 


Voici, à titre de référence, un tableau des numéros de couleur. Il 
devrait également vous aider à vous remémorer la différence entre 
les COULEURS LOGIQUES (le premier paramètre de INK) et les COU- 
LEURS PHYSIQUES (le second paramètre). 


/ 
COULEURS FHYSIQUES COULEURS LOGIQUES (PAR DEFAUT) 


Numéro Description 


de la de la Mode Mode Mode Fapier Stylo 
couleur couleur (a) 1 2 
(e) Noir S 

1 Bleu [e] Q [e) Ô 
2 Bleu vif 6 

3 Rouge 

4 Magenta 

e] Mauve 

6 Rouge vif 3 3 

7 Fourpre 

8 Magenta vif 7 

, Vert 

10 Tur quoise 8 

11 Bleu ciel 

12 Jaune 9 

15 Blanc 

14 Bleu pastel 10 

15 Or ange 

16 Rose 11 

17 Magenta pastel 

18 Vert vif 12 

19 Vert marin 

20 Turquoise vif 2 2 

21 Vert citron 

22 Vert pastel 13 

25 Turquoise pastel 

24 Jaune vif 1 1 1 1 
25 Jaune pastel 

26 Blanc brillant 4 

Intermittentes 1,24 14 

Intermittentes 16,11 15 
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Le tableau précédent montre que le papier ‘par défaut” est défini 
dans tous les modes par l'encre 0 et la couleur 1 (le bleu). De même, 
dans tous les modes, le stylo par défaut est défini par l'encre 1 et la 
couleur 24. 


NOTE : En utilisant une couleur logique dont le numéro serait supérieur à 
ceux qui sont autorisés (par exemple avec PEN 5 en mode 1), vous n'intro- 
duirez pas d’erreur ; la valeur sera prise en considérant un reste sur 16 (en 
mode 0), sur 4 (en mode 1) ou sur 2 (en mode 2). 


EFFETS SPÉCIAUX 


Ne vous imaginez pas, à partir des explications précédentes, que 
toutes les couleurs doivent toujours être différentes. 1l peut parfois 
être utile de les rendre identiques. Par exemple, entrez : 


INK 0,1 
PAPER 0 
INK 1,24 
PEN 1 


afin de donner un meilleur aspect à votre écran clignotant, puis relan- 
cez le programme, et entrez : 


INK 1,1 
La première série de chiffres disparaît aussitôt ! Et si nous entrons : 
INK 1,23 
elle réapparaît aussi rapidement, mais dans une couleur différente. 
Cela fait appel à une caractéristique très importante qui nous sera 
très utile par la suite, lorsque nous étudierons le graphisme — la pos- 


sibilité de contrôler l'apparition et la disparition des images. Une uti- 
lisation correcte des commandes INK et PEN, associée à quelques 


= 47.- 


programmes de contrôle, nous permettra quelques ‘‘’astuces’’ telles 
que : 
e faire apparaître et disparaître ‘‘’instantanément’’ des objets ; 


e donner l'illusion qu'il y a plusieurs plans (ou plusieurs épaisseurs) 
en permettant aux objets du premier plan de passer ‘‘devant’’ des 
objets du second plan et de cacher le ‘‘fond’’ de l’écran ; 


° animer des objets ou des personnages sur l'écran. 


Nous en reparlerons plus tard ; il est temps de quitter la couleur 
pour passer au graphisme de l’Amstrad ! 
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D 
TEXTE ET GRAPHISME 


Poursuivant notre étude du chapitre précédent sur les couleurs de 
l’'Amstrad, nous allons examiner maintenant les commandes concer- 
nant le texte et le graphisme, et les techniques permettant de gérer 
l'affichage. 


GRAPHIQUES DE BLOC 


Tout le monde comprend le texte ; les caractères d’un texte sont 
ceux du tableau du code ASCII, allant du caractère 32 (l'espace) au 
caractère 127 (une sorte de damier réduit). Mais le graphisme a peut- 
être besoin d’une définition préliminaire. Avec l'Amstrad, nous avons 
deux sortes de graphiques, graphiques de bloc (ou mosaïques) et gra- 
phiques de ligne. Les graphiques de bloc sont de simples caractères 
qui sont affichés comme du texte. Par exemple : 


PRINT CHR$(224) 


affiche un graphique de bloc : un visage souriant. Puisque les gra- 
phiques de bloc se comportent exactement comme des caractères 
alphanumériques ordinaires, on peut définir ses propres graphiques 
si on le désire (voir Chapitre 3) et les combiner pour former des carac- 
tères plus larges. 


L'Amstrad propose tout un ensemble de graphiques de bloc fort 
utiles, y compris des ‘’jeux’’ de caractères appréciables quand on veut 
dessiner des cadres ou des diagrammes. Examinez les matrices agran- 
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dies du manuel (pages A3.2 à A3.13) et vous distinguerez plusieurs 


groupes : 


Caractères 128-143 


Caractères 144-159 


Caractères 160-191 


Caractères 192-255 


Caractères 0-31 


Blocs. Chaque bloc représente 4 cellules, qui 
peuvent être ‘’allumées”’ ou ‘’éteintes’”. 


Lignes. Conçus pour relier le centre d’un 
caractère au milieu d’un bord, selon différen- 
tes combinaisons. 


Caractères complémentaires. Vous remarque- 
rez divers caractères étrangers, comprenant 
des lettres grecques, des accents français, un 
point d'interrogation renversé de l'alphabet 
espagnol, etc. 


Symboles graphiques divers. 


Autres symboles divers. Comme il s’agit éga- 
lement de caractères de commande, vous 
devez les faire précéder de CHR$(1) si vous 
désirez les faire afficher sur l'écran (voir Cha- 
pitre 3), mais certains de ces symboles sont 
bien utiles, et il ne faut pas les oublier. 


Quand vous utilisez des graphiques de ligne normaux, n'oubliez 
pas qu’il peut être avantageux de les mêler à des graphiques de bloc 
judicieusement choisis, afin d'obtenir le meilleur effet. 


GRAPHIQUES DE LIGNE 


Les graphiques de ligne sont, comme vous avez pu l’imaginer, for- 
més de lignes. Initialisez le système et testez le petit programme sui- 
vant afin de dessiner un rectangle : 


5 CLS 

10 MOVE 300,200 
20 DRAW 340,200 
30 DRAW 340,300 
40 DRAW 300,300 
50 DRAW 300,200 
60 END 
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Les graphiques de ligne sont toujours dessinés sur un écran gra- 
phique, alors que les graphiques de bloc et les textes sont ‘’dessi- 
nés’’ sur un écran de texte. Chaque type d'écran a ses propres limi- 
tes et son propre curseur — mais le curseur graphique est toujours 
invisible ! Il existe malgré tout, et vous pouvez toujours trouver sa 
position selon des coordonnées de type XY, en utilisant les fonctions 
XPOS et YPOS. Après l'exécution du programme précédent, XPOS 
— la position horizontale — aura la valeur 300 et YPOS — la position 
verticale — aura la valeur 200. Essayez : 


PRINT XPOS, YPOS 


pour vérifier la position du curseur. 


Les positions possibles de XPOS vont de 0 à 639, celles de YPOS 
vont de O0 à 399, car l'écran graphique a une définition de 
640 x 400 points. Il n’y a en fait que 200 points possibles sur une 
verticale, mais en doublant ce chiffre la distance entre, disons, 
10 points sera approximativement la même dans les deux directions, 
verticale ou horizontale, et cela facilitera les calculs lors de la con- 
ception des graphiques. 


L'écran graphique conserve la même taille, quel que soit votre mode 
de travail ; par conséquent, les programmes graphiques écrits pour 
un mode donné fonctionneront aussi bien avec un autre mode, bien 
que les résultats puissent paraître très différents. En mode 0, le mode 
ayant la plus faible résolution, chaque pixel occupera 4 points hori- 
zontaux, et si vous entrez : 


MODE 0 

PLOT 320,200 
PLOT 321,200 
PLOT 322,200 
PLOT 323,200 


vous verrez qu’un seul point a été dessiné (ou plutôt, que 4 points 
ont été dessinés au même endroit !). 


Les positions sur l’écran graphique sont toujours données en com- 
mençant par la coordonnée X. La position 0,0 représente un point 
situé en bas à gauche, et 639,399 un point situé en haut à droite. 
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639,639 


320,200 





Cette disposition n’est pas mauvaise, mais elle est inversée par rap- 
port à celle utilisée par les écrans de texte. Ils comptent les lignes 
à partir de 1 (et pas 0) et partent de la position en haut à gauche jusqu’à 
la position en bas à droite, et la coordonnée X varie de 20 (en mode 0) 
à 80 (mode 2) en passant par 40 (en mode 1)... Enfin, cela permet 
de faire travailler nos méninges ! 


COMMANDES GRAPHIQUES 


Pour en revenir aux graphiques de ligne : les commandes sont sim- 
ples et peu nombreuses. DRAW permet de dessiner une ligne — dans 
la couleur du ‘‘stylo graphique’”” — depuis la position du curseur gra- 
phique jusqu’à une nouvelle position. La couleur utilisée, en termes 
de graphisme, est celle que vous avez employée la fois précédente ! 
Si c'est la première fois qu’une commande graphique est utilisée, la 
couleur sera celle de l'encre n° 1. 

Vous pouvez à tout moment sélectionner une nouvelle couleur gra- 
phique en ajoutant une couleur à la commande DRAW elle-même ; 
ainsi, DRAW 500,200,2 dessinera une ligne de la couleur de l'encre 2 
(INK 2), quelle qu'elle soit, et toutes les commandes graphiques sui- 
vantes continueront d'utiliser l'encre 2 tant que vous n'aurez pas spé- 
cifié une autre encre. 

MOVE positionne le curseur graphique à n'importe quelle position 
XY de l'écran, mais sans rien dessiner, et PLOT dessine un simple 
pixel (dont la taille variera selon le mode d'écran) à l'emplacement 
graphique spécifié. Comme DRAW, la commande PLOT peut rece- 
voir pour troisième paramètre une couleur qui deviendra alors la nou- 
velle couleur graphique. 


TEST peut être employé afin de savoir dans quelle couleur est des- 
siné un pixel particulier. Cela peut être très utile dans un programme 
de jeu, par exemple, lorsqu'on se déplace sur un écran qui a été par- 
semé d'objets divers de manière aléatoire. 

DRAW, MOVE, PLOT et TEST utilisent tous des coordonnées XY 
absolues, mais il y a différents types de commandes qui utilisent des 
adresses relatives — c’est-à-dire relatives à la position actuelle du cur- 
seur. Ainsi, PLOTR 40,50 dessinera un point à l'emplacement 
XPOS +40, YPOS + 50. 

Dans le petit programme précédent, nous avons utilisé CLS pour 
effacer l'écran, mais à proprement parler cette commande efface les 
écrans de texte et nous aurions dû employer CLG, qui efface l'écran 
graphique. Dans le programme précédent, l'effet était le même, en 
supposant que vous ayez d’abord initialisé le système, mais ce ne 
sera pas toujours le cas. Normalement, CLG restaure la couleur défi- 
nie par PAPER, quelle qu’elle soit (0 par défaut), mais vous pouvez 
redonner au fond de l'écran une couleur spécifique. CLG 2 donnera 
à l'écran la couleur de l'encre n° 2 qui pourra être ou non sa cou- 
leur par défaut (couleur 20 — turquoise vif), et qui restera la couleur 
de fond du graphisme tant que vous ne la changerez pas. 

La seule commande du graphique de ligne qui reste à étudier est 
ORIGIN, qui nous permet de modifier l'emplacement de la position 
0,0 (initialement en bas à gauche de l'écran). 

Par exemple : 


ORIGIN 320,200 
placera le point 0,0 au centre de l'écran et il y restera tant que nous 
ne le déplacerons pas. Tant que ce ‘‘’point d’origine’’ sera là, nous 
pourrons utiliser des coordonnées négatives pour nous déplacer à 
gauche ou en dessous du nouveau point 0,0. Par exemple, pour dési- 
gner le coin inférieur gauche de l'écran, nous pourrions entrer : 
DRAW — 320, — 200 
et 


DRAW 319, — 200 


pour tracer une ligne jusqu’au coin inférieur droit. 


- 53 —- 


Normalement, l'écran graphique occupe toute la superficie de 
l'écran physique (sauf la bordure qui ne fait partie ni de l'écran du 
texte, ni de l'écran graphique). Mais nous pouvons limiter le graphisme 
à une zone plus petite si nous le désirons, en utilisant une fois encore 
la commande ORIGIN. 


ORIGIN 0,0,160,480,300, 100 


définira une fenêtre graphique réduite au centre de l'écran physique. 
Essayez d'entrer 


CLG 2 


pour observer les limites de cette nouvelle zone. Puis tapez CLS, en 
remarquant que l'effacement de l'écran de texte efface également 
l'écran graphique, car ils se superposent. CLG restaure l'écran gra- 
phique, et nous pouvons alors constater que le conflit entre les écrans 
obéit à une règle fort simple : c’est la dernière opération qui compte ! 


DESSINER DES CERCLES 


A part TAG et TAGOPFF (voir plus loin), on n’emploie ici que les 
commandes graphiques. Nous ne disposons pas de CIRCLE ou de 
FILL, ce qui est dommage. Mais avec ces quelques commandes que 
nous venons d'étudier, il est possible de faire bien des choses, comme 
nous allons le voir. 

Voici un sous-programme permettant de dessiner le bord d'un 
cercle. 


1000 REM DESSIN D'UN CERCLE DE RAYON R EN CX,CY 
1010 DEG 

1020 ORIGIN CX,CY 

1030 FOR J=1 TO 360 

1040 PLOT R+COS{(J),R+SIN(J) 

1050 NEXT J 

1060 RETURN 


Modifions ainsi la ligne 1040 : 
1040 MOVE 0,0 : DRAW RxCOS{(J), R*xSIN(J) 


si l’on veut obtenir un cercle plein. 


Ce sous-programme considère implicitement (?) que l’origine est 
déplacée au centre du cercle. Si ce n’est pas ce que l’on souhaite, 
nous pouvons écrire : 


1000 REM DESSIN D'UN CERCLE DE RAYON R EN CX,CY 
1010 DEG 

1020 FOR J=1 TO 360 

1030 MOVE CX,CY 

1040 PLOT R+xCOS{(J),R+xSIN(J) 

1050 NEXT J 

1060 RETURN 


Ces deux sous-programmes doivent être appelés après avoir défini 
CX, CY et R. Par exemple : 


10 CX= 320 : CY =200 : R= 150 : GOSUB 1000 


UN SYSTÈME TOLÉRANT 


Quand vous faites des essais avec différents cercles et d’autres for- 
mes, remarquez que si, accidentellement ou à dessein, vous voulez 
dessiner une ligne ou un point à l'extérieur de l'écran, le système 
calcule patiemment à quel endroit la ligne aurait abouti si l'écran avait 
été plus large, et qu'il fait de son mieux pour vous satisfaire. Essayez : 


10 ORIGIN 0,0 

20 MOVE 320,200 
30 DRAW 0,200 

40 DRAW 320,900 
50 DRAW 1000,100 
60 DRAW 320,200 


afin de vérifier le résultat. Il vaut mieux cela qu'un arrêt du système 
accompagné d’un message d'erreur ! L’unique léger désagrément de 
cette tolérance est que, si vous vous trompez complètement dans 
vos calculs de coordonnées, des figures entières risquent d’être ‘‘des- 
sinées’”” en dehors de l'écran, ce qui peut évidemment vous faire per- 
dre beaucoup de temps. 

En règle générale, si la commande graphique ne semble rien don- 
ner qu’un inquiétant silence, assurez-vous d'abord que vous ne des- 
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sinez pas dans la même couleur que le fond de l'écran, et vérifiez 
ensuite les valeurs actuelles de XPOS et YPOS pour être certain que 
vous ne vous êtes pas aventuré trop loin dans la jungle de 
l’outre-écran ! 


DÉPLACER LA MÉMOIRE ÉCRAN 


Dans le Chapitre 4, nous avons dit que la mémoire écran (la partie 
de la mémoire associée à l'écran) commence normalement à l'adresse 
&CO00. Il s’agit d’une adresse par défaut, mais vous pouvez position- 
ner la mémoire écran dans n'importe quelle plage de 16K si vous 
le désirez ; une routine du système d'exploitation, située en &BCO8, 
permet de définir une nouvelle adresse pour la mémoire écran. En 
théorie, cette adresse pourrait aussi bien être 0 que &4000 ou &8000, 
mais en pratique il y a une excellente raison qui fait que seule l'adresse 
&4000 peut être utilisée comme adresse de remplacement. Si nous 
placions la mémoire écran en &0 ou en &8000, elle recouvrirait les 
zones allouées en permanence au système d'exploitation, et cela pro- 
voquerait inévitablement un blocage du système. 

Si nous décidons de créer une nouvelle mémoire écran à partir de 
l'adresse &4000, nous pouvons également créer un dessin en &C000 
et passer d’une adresse à l’autre pendant l'exécution du programme. 
C'est un moyen permettant de créer des effets spéciaux sur l'écran 
— par exemple de réaliser une animation. Exécutez le programme 
suivant : 


S REM PROGRAMME ROUES 

10 GOSUB 1000 

20 SCR=SCR XOR &80 : GOSUB 2000 
30 GOTO 20 

1000 REM INITIALISATION 

1010 MEMORY 16383 

1020 FOR J=0 TO 100 

1030 READ X 

1040 IF X=-1 THEN 1100 

1050 POKE &B000+J,X 

1060 NEXT J 

1070 DATA &SE,&CO,&CD,88,8&BC,&C9 
1080 DATA -1 


1100 SCR=&CO : GOSUB 2000 
1110 START=1 : GOSUB 1900 
1200 SCR=&40 : GOSUB 2000 


1210 START=S : GOSUB 1900 
1299 RETURN 

1900 CLG : DEG 

1902 RESTORE 1995 

1905 FOR WHEEL=1 TO 2 
1907 READ GX,GY 


1910 ORIGIN GX,GY : DEG 

1920 FOR J=1 TO 360 

1930 PLOT SO*C0S(J) ,SO#SIN(J) ,1 
1940 NEXT J 

1950 FOR J=START TO START+360 STEP 8 
1960 MOVE 0,0 

1970 DRAW SO#C0OS (J) ,50#SIN(J) 
1980 NEXT J 

1985 NEXT WHEEL 

1990 RETURN 

1995 DATA 160,100,480,100 

2000 REM CHANGEMENT D'ECRAN 
2010 POKE &8001,SCR 

2020 CALL &8000 

2999 RETURN 


Les instructions DATA créent un sous-programme en assembleur 
qui charge dans le registre A la valeur &CO — c'est-à-dire l'adresse 
supérieure de la mémoire écran — et qui appelle la routine du système 
d'exploitation située en &BCO08. Le sous-programme 2000 s'assure 
que la valeur placée dans le registre A est soit &40, soit &CO. 

Ilexiste un moyen de réaliser le même genre d'effet avec une seule 
zone de mémoire écran, mais en utilisant deux zones vous pouvez 
donner une dimension supplémentaire à des graphiques complexes. 
Apprécions la taille importante de la mémoire de l’Amstrad, qui nous 
permet d'utiliser 32K de mémoire écran et nous laisse encore de la 
place pour un grand programme en BASIC ! 


LES ÉCRANS DE TEXTE — LES FENÊTRES 


Oublions le graphisme pendant un moment et retournons au texte. 
Dans ce chapitre, nous avons déjà parlé d’un ‘’écran de texte’”’ et 
d’un ‘’écran graphique’”’. En fait, il y a 8 écrans de texte, mais ils sont 
tous placés par défaut dans la même zone, c'est-à-dire l'écran physi- 
que. Nous avons écrit sur l'écran O, l'écran de texte par défaut, mais 
il en existe encore 7 autres, numérotés de 1 à 7. Il n'existe toutefois 
qu'un seul écran graphique. 

La taille et la position d’un écran de texte peuvent être définies par 
la commande WINDOW, et c’est ainsi que nous pouvons faire coexis- 
ter plusieurs écrans sur notre unique écran physique. A titre d’exem- 
ple, nous pourrions vouloir définir une fenêtre dans la partie supé- 
rieure droite de l’écran physique. Initialisons d’abord le système, puis 
tapons : 


WINDOW #1,21,40,1,12 


UD TErL 


Cette instruction définit la zone de l'écran 1 (en mode 1) comme 
étant constituée des 20 colonnes les plus à droite et des 12 lignes 
supérieures. 

Le fait qu'il y ait désormais deux fenêtres sur l'écran n’est pas immé- 
diatement visible, mais essayez d'entrer et d'exécuter le programme 
suivant : 


10 CLS 

20 FOR J=1 TO 20 

30 PRINT J;TAB(5);SOR(J) 
40 NEXT 

50 END 


puis tapez la commande : 
LIST #1 


et le programme s’inscrira dans le coin supérieur droit sans affecter 
les chiffres placés à gauche, qui se trouvent bien évidemment sur 
l'écran O. 

Remarquez que CLS a été considéré par le système comme l’équi- 
valent de CLS #0 et que l'écran 0 recouvre toujours l'ensemble de 
l'écran physique. En tapant : 


WINDOW #0,1,20,1,25 
vous réduirez l'écran O0 à la partie gauche de l'écran, et 
WINDOW #2,21,40,13,25 


établira une fenêtre dans la partie inférieure droite. 

A partir de maintenant, chaque fenêtre sera nettement séparée des 
autres. Chacune conservera son emplacement de manière tout à fait 
indépendante, et l'affichage d’un texte dans une fenêtre n'affectera 
pas la position du curseur (invisible, sauf si le programme attend une 
réponse) dans les autres fenêtres. Une commande comme PAPER #1,3 
ne modifiera que la couleur du fond d’un seul écran, et ensuite une 
commande CLS #3 provoquera un changement de couleur instan- 
tané. (Dans certaines applications, cela peut constituer un moyen 
rapide de colorer tout un rectangle d’un seul coup.) 
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N'oubliez pas que les fenêtres sont égoïstes et qu’elles n'hésitent 
pas à effacer leurs concurrentes s’il le faut — c’est la dernière appe- 
lée qui gagne ! 

Vous connaissez déjà les commandes CLS et PRINT (utilisez 
PRINT #3, pour écrire sur l'écran 3). LOCATE déplace le curseur 
de texte vers la position XY spécifiée, mais souvenez-vous bien que 
dans les écrans de texte les positions se calculent différemment de 
celles de l’écran graphique — il faut partir du haut de l'écran et la 
première position est 1 (et pas O). 

Les fenêtres sont utilisées en particulier dans le programme de ges- 
tion personnelle décrit dans la cinquième partie. 


MÉLANGER GRAPHISME ET TEXTE 


Normalement, lorsque vous affichez des caractères, le système 
prend l'emplacement du curseur comme position de début d'affichage 
et, lorsque l'affichage est terminé, il positionne le curseur derrière 
les caractères. Mais l’Amstrad vous permet d'écrire du texte sur l'écran 
graphique si vous le désirez. Après la commande TAG #1, tout affi- 
chage sur l'écran 1 débutera en partant de la position du curseur gra- 
phique et non plus de celle du curseur de texte. La position du cur- 
seur graphique sera avancée de 8 pixels chaque fois qu’un caractère 
sera affiché de cette manière. 

La commande TAG est très utile pour afficher des titres de graphi- 
ques, de ‘’camemberts” où d’autres diagrammes. Pour revenir au 
mode d'affichage normal, employez la commande TAGOPFF. 

Il y a encore un problème lorsqu'on mélange du graphisme et du 
texte. Si vous voulez annoter un diagramme compliqué en utilisant 
la commande TAG suivie d’une commande PRINT, il pourrait être 
ennuyeux que l'affichage du texte efface une partie du graphisme. 
Cela se produira parce que, lorsqu'il affiche un caractère, le système 
efface normalement la matrice de 8 X 8 pixels et lui donne la cou- 
leur du fond (la couleur du papier) avant d'afficher le caractère dans 
la couleur du stylo. L'affichage du caractère est évidemment néces- 
saire, mais parfois nous aimerions bien que le système ne commence 
pas par effacer le fond. 

Ilest facile de résoudre ce problème ! Nous allons passer en ‘’mode 
transparent”. Cela signifie tout simplement que les caractères seront 
affichés sans que le fond soit d'abord effacé, exactement comme nous 
le souhaitons. La transparence est établie en entrant le code de com- 


2160 :-.= 


mande 22 suivi du paramètre 1 dans la fenêtre de notre choix — 0 
par défaut, bien entendu. 


PRINT CHR$(22) + CHR$(1); 
validera la transparence sur l'écran O et 
PRINT CHR$(22) + CHR$(0) 


la désactivera de nouveau. 
Vous verrez clairement quel effet cela produit si vous validez la 
transparence et que vous tapez ensuite : 


LOCATE 1,1 
LIST 


à supposer bien sûr qu’un programme existe. Les lignes du programme 
paraissent embrouillées car tous les caractères qui se trouvaient déjà 
sur l'écran n'ont pas été effacés pour céder la place aux nouveaux 
caractères. 

Nous reparlerons de la transparence dans le Chapitre 11. 


JEUX DE CARACTÈRES NATIONAUX 


Tout comme elle peut être importante pour l’annotation des dia- 
grammes, la transparence peut être très utile si nous voulons dispo- 
ser des accents. Nous avons déjà remarqué que le jeu de caractères 
comprend les accents ; vous vous êtes peut-être demandé alors com- 
ment nous pourrions les utiliser sans effacer le caractère qui se trou- 
verait déjà là. Maintenant, il devrait vous paraître évident que 


PRINT ‘e’’;CHR$(8);CHR$(167) 


affichera un e accent grave (si la transparence a été validée aupara- 
vant) et que 


PRINT ‘’u’";CHR$(8);CHR$(160) 


affichera un u accent circonflexe. Bien entendu, le CHR$(8) repré- 
sente le retour arrière. 


00 


Vous pourriez donc établir vos propres caractères afin de disposer 
des caractères accentués, en utilisant peut-être le programme de DÉFI- 
NITION DES CARACTÈRES PAR L'UTILISATEUR du Chapitre 3, puis 
en faisant en sorte que les caractères accentués soit directement acces- 
sibles à partir du clavier, comme dans l'exemple suivant : 


S REM CARACTERES FRANCAIS. 
10 SYMBOL AFTER 220 

20 GOSUB 1000 

30 GOSUB 2000 

40 FOR J=228 TO 235:PRINT CHRS$ (J) ;:NEXT 

999 END 

1000 REM DEFINITION DES CARACTERES 

1010 SYMBOL 228,418,818,83C,&66,&7E,&60,&3C,O:REM E GRAVE 

1020 SYMBOL 229,8C,418,8C,&66,&7E,&60,&3SC,O:REM E AIGU 

1030 SYMBOL 230,&%10,8&18,&%78,8C,&7C,&CC,&76,0:REM À GRAVE 

1040 SYMBOL 231,&10,838,&7C,&C,&7C,&CC,&76,0:REM À CIRCONFLEXE 
1050 SYMBOL 232,%66,&0 ,&7C,&C,&7C,&CC,&76,0:REM À TREMA 

1060 SYMBOL 233,%66,80 ,L66 ,L66 , kb ,U66,U3E,0:REM U TREMA 

1070 SYMBOL 234,418,43C, 40, L66 ,L66 ,k66,&SE,0:REM U CIRCONFLEXE 
1080 SYMBOL 235,8&0,0,83C,k66,8&60 ,&66,83C,&18:REM C CEDILLE 
1999 RETURN 

2000 REM DEFINIR LES TOUCHES POUR L'ACCENTUATION 

2010 KEY 135,CHR$ (228) 

2020 KEY 136,CHR$ (229) 

2030 KEY 137,CHR$ (230) 

2040 KEY 132,CHR$ (231) 

2050 KEY 133,CHR$ (232) 

2060 KEY 134,CHR$ (233) 

2070 KEY 129,CHR$ (234) 

2080 KEY 130,CHR$ (235) 

2999 RETURN 


Essayez maintenant d'utiliser le pavé numérique. C’est formidable ! 

Si vous voulez imprimer vos résultats, il faudra néanmoins vérifier 
que votre imprimante dispose également des accents. C'est le seul 
ennui possible. 


NOTE : Le Guide de l'utilisateur du CPC464 vous propose également une 
méthode pour disposer des accents (Appendice X, page A10.1). 
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6 
HI-FI PROGRAMMABLE ! 


Le synthétiseur de son intégré à l’Amstrad est un composant très éla- 
boré qui nous offre : 


e 3 canaux sonores et un canal de bruit ; 
e 8 octaves ; 


e le contrôle du volume et de la tonalité. 


Pour profiter de toutes ces possibilités, il nous faut apprendre quel- 
ques commandes assez complexes. Elles sont peu nombreuses, mais 
il est indéniable qu'à première vue elles risquent de vous intimider. 
Ces commandes sont les suivantes : 


SOUND 

ENV 

ENT 

ON SQ({) GOSUB 
RELEASE 


auxquelles s'ajoute une fonction : 


SQf{) 


LA COMMANDE SOUND 


Dans ce chapitre, nous examinerons la commande SOUND : les 
autres commandes seront étudiées dans la deuxième partie. Grâce 
à cette commande, nous pouvons donner à l’Amstrad la ‘’hauteur” 
de son qu'il devra produire, sa durée, le numéro du canal stéréo et 
le volume du son. 

La commande SOUND peut recevoir d’autres paramètres, mais c’est 
déjà bien suffisant pour le moment ! 
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Consultez l’Appendice VII du manuel d'utilisation de l'Amstrad, 
qui vous fournit la liste des fréquences avec les périodes correspon- 
dantes, et tapez l'instruction suivante pour avoir une idée du fonc- 
tionnement de la commande : 


SOUND 1,284 


Cela produit un /a ayant une fréquence de 440 cps (cycles par 
seconde), également appelé ‘‘/a international”. Nous n'avons pas spé- 
cifié la hauteur proprement dite, mais la période (284) qui est calcu- 
lée grâce à la formule présentée au bas de la page A7.3. Pour l’ins- 
tant, il nous suffit de sélectionner nos notes à partir du tableau de 
l’Appendice VII. 

Nous choisissons de faire sortir ce son par le canal 1, ou A. Nous 
n'avons spécifié ni la durée ni le volume, et les valeurs par défaut 
sont alors prises en compte — 1/5 de seconde pour la durée et 12 
pour le volume. Répétez ce son en augmentant la durée : 


SOUND 1,284,100 


La durée est donnée en 1/100 de seconde, et cette fois le son a 
dû être produit pendant une seconde. 

Testons maintenant le volume, dont la plage va de 0 (silence) à 7 
(maximum) si l’on ne donne pas la valeur de l'enveloppe du volume, 
et de O à 15 si l’on utilise la commande ENV. Essayez : 


10 FOR VOL=0 TO 7 

20 SOUND 1,284,100,VOL 
30 NEXT VOL 

40 END 


Nous pouvons également ajuster le son grâce à la molette qui se 
trouve sur le côté droit du boîtier de l’Amstrad. 

Vous vous demandez peut-être comment le programme en BASIC 
peut s'achever bien avant que le son ne cesse. Nous expliquerons 
cela dans le prochain chapitre. 

Au cas où vous seriez maintenant lassé d'entendre le /a internatio- 
nal, nous allons tenter de produire d’autres notes : 


10 FOR PERIODE = 3822 TO 16 STEP —30 
20 SOUND 1,PERIODE,20,4 


STE 


Affreux ! Une gamme très imparfaite ! L'ordinateur semble passer 
un temps fou dans les fréquences basses avant de glisser trop rapide- 
ment vers les fréquences élevées. Il nous faut manifestement trouver 
un meilleur moyen de monter où descendre dans la gamme que celui 
qui consiste simplement à ajouter une valeur fixe à la période. Nous 
pourrions créer un tableau des périodes, mais utilisons plutôt une 
formule similaire à celle que donne le manuel : 


10 FOR OCTAVE= —-3 TO 4 

20 FOR NOTE=0 TO 12 

30 GOSUB 1000 

40 SOUND 1,PERIODE,50,4 

50 NEXT NOTE 

60 SOUND 1,0,100,0 

70 NEXT OCTAVE 

80 END 
1000 REM CALCULER LA PERIODE SELON OCTAVE ET NOTE 
1010 FREQ = 261.626*(2:(OCTAVE + NOTE/12)) 
1020 PERIODE = ROUND(125000/FREQ) 
1030 RETURN 


Voilà qui est mieux ! Cela paraît presque musical. Nous possédons 
maintenant une formule qui nous donnera la période en fonction de 
l’octave et de la note. C’est plus satisfaisant que de chercher sans 
cesse dans le tableau des périodes. Nous progressons ! 


NOTRE PREMIÈRE MÉLODIE 


Maintenant que nous avons les moyens de calculer n'importe quelle 
note de l’ensemble de la gamme, comment réaliser une mélodie ? 
Il nous faut donner au programme des informations sur les notes et 
leur durée, et sur la manière de produire les sons. Bien entendu, nous 
pourrions chercher les notes dans l’Appendice VII du manuel, les con- 
vertir en périodes et les entrer sous forme de données (avec DATA), 
mais puisque nous avons élaboré une formule, il semble préférable 
d'entrer les notes d’une manière qui se rapproche le plus possible 
de la notation musicale habituelle, en laissant à l’ordinateur le soin 
de calculer la période. 

Pour les lecteurs qui auraient échappé à une formation musicale, 
les bases en sont expliquées dans la deuxième partie de cet ouvrage ; 
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peut-être devraient-ils poursuivre la lecture de ce chapitre, entrer la 
mélodie telle qu’elle est donnée, et y revenir plus tard lorsqu'ils auront 
saisi les éléments de la notation musicale. 

Le programme suivant joue la mélodie du God save the queen. Les 
instructions DATA qui représentent les notes et leur durée sont pla- 
cées dans les lignes 100 à 199. Le sous-programme 2000 convertit 
chaque note de la notation semi-musicale de l'instruction DATA pour 
lui donner un numéro d’octave et un numéro de note dans cette 
octave. 

Le tempo est donné par un seul chiffre qui est utilisé pour calculer 
la durée de chaque note. Cela permet de modifier aisément le rythme 
de la mélodie en ne changeant qu’une valeur. 


1 REM GOD SAVE THE QUEEN 
S TEMPO=20 

7 ENT -1,1,1,3325-153915153 

10 READ NOTES, DURS 

15 IF NOTE$="" THEN END 

20 GOSUB 2000 

25 OCTAVE=OCTAVE+2 

30 GOSUB 1000 

40 SOUND 1,PERIOD,DUR,4,0,1 

42 SOUND 1,PERIOD, 1,0 

45 GOTO 10 

100 DATA CS,C,CS,C,DS,C,B4,DC,CS,0Q, 
105 DATA ES,C,ES,C,FS,C,ES,DC,DS,0Q, 
110 DATA DS,C,CS,C,B4,C,CS,C 

115 DATA CS,0,D5,0,E5,0,F5,0,65,C,65,C,65,C,65,DC,FS,0,ES,C 

120 DATA FS,C,FS,C,FS,C,FS,DC,ES,0,D5,C,ES,C,FS,0,E5,0,D5,0,C5,Q 
125 DATA ES,DC,FS,0,65,C,A5,0,F5,0,E5S,C,DS,C,CS, DC 

199 DATA “","" 

1000 REM CALCULER PERIODE AVEC OCTAVE ET NOTE 

1010 FREQG=261.626# (2" (OCTAVE+NOTE/ 12) ) 

1020 PERIOD=ROUND (125000/FREQ) 

1099 RETURN 

2000 REM CALCULER NOTE, OCTAVE ET DUREE AVEC NOTES ET DURS 

2010 Z$=LEFT$ (NOTES, 1) 

2020 NOTE=INSTR ("CCDDEFFGGAAB" , Z$) —1 

2030 IF NOTE<O THEN OCTAVE=S: DUR=1: GOTO 2999 

2040 Z$=RIGHTS$ (NOTES$, 1) 

2050 IF Z$="#" THEN NOTE=NOTE+1 

2060 IF Z$="b" THEN NOTE=NOTE-1 

2080 OCTAVE=VAL (MID$ (NOTES ,2,1))-4:1F OCTAVE<O THEN OCTAVE=1 
2090 IF NOTE<O THEN NOTE=0: OCTAVE=OCTAVE-1 

2100 DUR=2"INSTR ("HDSQCM" ,RIGHTS (DURS, 1) ) /16 

2120 IF LEN(DUR$#)=1 THEN 2200 

2130 Z=INSTR("DT" ,LEFT# (DUR$, 1) ) 

2140 IF Z=0 THEN 2200 

2150 IF Z=1 THEN DUR=1.S#DUR 

2160 IF Z=2 THEN DUR=DUR/3 

2200 DUR=DUR#TEMPO 

2999 RETURN 


Ds,C 
cs,C 
js 


C 
, 
, 


Si vous pensez que le résultat ressemble à la prestation d’un violo- 
niste ayant la tremblote, soyez patient. Les améliorations viendront 
plus tard ! 

Ce programme n'utilise pas la manière la plus efficace de produire 
des notes avec la commande SOUND, mais il fonctionne et sert de 
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démonstration au principe de création d’une mélodie. D’autres raf- 
finements seront ajoutés dans la deuxième partie. 

Le sous-programme 1000 convertit l’octave et la note en une 
période. Le tempo peut être ajusté en modifiant la ligne 5. 

Différentes mélodies peuvent être jouées en transformant les lignes 
100 à 125. La notation utilisée pour les notes est ‘’XYZ'’ ; X repré- 
sente la note (de do à si), Y représente le numéro de l’octave (de 
1 à 8) et Z constitue un indicateur optionnel qui montre si la note 
doit être diésée ou non. 


AJUSTEMENT DU VOLUME 


La tonalité est certes reconnaissable, mais elle est indéniablement 
mécanique. Néanmoins, on peut en dire autant d’un orgue de Bar- 
barie ou d’une boîte à musique de l’époque victorienne. Le vérita- 
ble défi est de rendre le son de l'ordinateur aussi musical que possi- 
ble en tenant compte de ses inévitables limites. Ne vous découragez 
pas, nous venons à peine de commencer ! 

Notre God save the queen a été joué à un volume fixe. Vous avez 
vu que nous pouvons faire varier l'intensité du volume avec la com- 
mande SOUND. Cependant, nous ne pouvons pas le modifier à l’inté- 
rieur d’une seule commande, mais seulement d’une commande à 
l’autre. C'est la commande ENV qui nous permet de modifier le 
volume d’un son qui est joué, et cela fait beaucoup pour améliorer 
l'effet musical. 

La commande ENV nécessite une explication approfondie — qui 
sera donnée ultérieurement — tout comme la commande ENT qui 
nous autorise à modifier la hauteur (c’est-à-dire la valeur de la période) 
pendant l'écoute d’un son. Un exemple en a été donné dans la mélo- 
die précédente. 


RÉSUMÉ DES POSSIBILITÉS SONORES 


Jusqu'à présent, nous n'avons fait qu’effleurer les possibilités sonores 
de Amstrad, mais nous pouvons espérer que vous avez déjà appré- 
cié leur étendue. Dans la deuxième partie, nous poursuivrons notre 
étude pour examiner les variations de volume et de hauteur, les files 
d'attente (queues), les mélodies à deux ou trois voix séparées, la 
synchronisation et les effets spéciaux. 

Toujours plus loin, toujours plus haut... 
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UN SYNTHÉTISEUR 


MUSICAL 
TRÈS COMPLET 





Ci partie nous entraîne encore plus loin dans les mystérieuses 
possibilités sonores de l’ Amstrad. 


7 
LA NOTATION MUSICALE 


Dans le dernier chapitre, nous avons établi les bases qui nous per- 
mettent de faire de la musique avec l’Amstrad, et nous avons pré- 
senté un programme pouvant jouer une mélodie simple. Puisqu’il y 
a 3 canaux musicaux, nous pouvons ajouter 2 voix supplémentaires 
afin de créer un son beaucoup plus satisfaisant. 

Avant de faire cela, nous devons expliquer comment fonctionne 
l'écriture des sons sous une forme qui permette à d’autres person- 
nes, n'ayant jamais entendu la mélodie, de reproduire les intentions 
du compositeur. 


LES ÉLÉMENTS DE LA NOTATION MUSICALE 


Si vous regrettez de ne pas connaître la notation musicale, rassurez- 
vous. Si vous maîtrisez le BASIC, la notation hexadécimale ou le lan- 
gage d'assemblage du Z80, la notation musicale vous paraîtra bien 
simple en comparaison ! 

La gamme musicale est, par convention, divisée en octaves dans 
lesquelles la fréquence de la note supérieure est exactement le dou- 
ble de la fréquence de la note inférieure. L'octave est divisée en 12 
parties égales appelées demi-tons. 

Généralement, dans la musique occidentale, toutes les notes sont 
sélectionnées à partir de ce 1/12 d'octave, et une gamme consiste 
à monter ou descendre l'échelle des demi-tons et des tons. Un ton 
représente deux demi-tons. 

Bien évidemment, il n'existe pas de loi divine affirmant qu'une 
octave doit être divisée en 12 parties ; il s’agit simplement de notre 
convention, et dans d’autres parties du monde la musique utilise 
d'autres intervalles, comme les quarts de ton — que nous pourrions 
reproduire sur l’Amstrad si nous le voulions. 


Une gamme composée de tous les demi-tons est appelée ‘’gamme 
chromatique’’ : 


1 REM GAMME CHROMATIQUE 
10 READ OCTAVE, NOTE 

20 IF OCTAVE=99 THEN END 

30 GOSUB 1000 

40 SOUND 1,PERIOD,20,4 

so GOTO 10 

60 DATA 1,0,1,1,15251535154915 51569157 5158019%0191051511515125250 
70 DATA 99,0 

1000 REM CALCULER PERIODE AVEC OCTAVE ET NOTE 

1010 FREG=261.626# (2° (OCTAVE+NOTE/12) ) 

1020 PERIOD=ROUND (125000/FREG) 

1099 RETURN 


Si vous disposez d’un piano, vous devriez voir qu’une gamme chro- 
matique se joue en commençant par une note et en frappant toutes 


les touches, noires et blanches, jusqu’à ce que vous soyez une octave 


au-dessus de la première note. 
Chaque note de l’octave a reçu un nom. Les notes de l’octave repré- 


sentées par les sept touches blanches sont appelées, selon les pays, 
do, ré, mi, fa, sol, la, si, ou encore C, D, E, F, G, À, B. 


Vous remarquerez que la plupart des touches blanches sont situées 
à un ton entier des touches blanches voisines, c'est-à-dire qu’elles 
sont séparées par une touche noire dont le son se situe à un demi- 
ton de chacune des deux touches blanches voisines. Mais il n’y a 
qu’un demi-ton entre les touches mi et fa, et entre les touches si et 
do, et par conséquent une touche noire n'est pas nécessaire à cet 
emplacement. 


Notre gamme chromatique débute avec la note do parce que nous 
avons utilisé la fréquence du do dans notre formule. Ainsi, do est 
la note O0. Pour jouer la gamme de do majeur, nous devons modifier 


ainsi l'instruction DATA : 


60 DATA 1,0,1,2,1,4,1,5,1,7,1,9,1,11,1,12,2,0 
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Cette gamme correspond aux touches blanches du clavier du piano, 
et l’octave ainsi jouée commence avec le do ‘’médian’”, qui se trouve 
à peu près au centre du clavier. Les touches noires donnent les demi- 
tons intermédiaires, et la notation # (dièse) ou b (bémol) est placée 
juste après la note. # relève la note d’un demi-ton et b la descend 
d'autant. Sur un clavier de piano, il n’y a pas de distinction entre un 
sol# et un la b, par exemple. 

Pour écrire notre mélodie, nous utilisons un papier sur lequel sont 
imprimées cinq lignes horizontales assez rapprochées, constituant ce 
que l’on appelle les portées musicales. Nous plaçons d’abord un signe 
au début de chaque portée pour indiquer quelle note sera représen- 
tée par telle ou telle ligne. Deux signes sont communément utilisés 
pour les instruments à clavier, mais il en existe d’autres pour des ins- 
truments comme l’alto. La clef de so/ nous dit que la deuxième ligne, 
en partant du bas de la portée, représentera un sol, le sol qui se trouve 
au-dessus du do médian. Ainsi, le do médian se trouve juste en des- 
sous de la portée, et si nous devons inscrire un do médian sur notre 
partition, il faudra placer la note sur un petit morceau de ligne sup- 
plémentaire appelée ligne ajoutée. 

















CD EF G AB cC 


La clef de fa nous indique que la deuxième ligne en partant du haut 
de la portée représente la note fa (la fa qui précède le do médian) ; 
cette portée est donc mieux adaptée, pour nous présenter les notes 
basses, que la portée en clef de sol. 

Si vous examinez une partition pour piano, vous verrez que la partie 
droite du clavier utilise généralement la clef de sol, qui est mieux adap- 
tée pour l'écriture et la lecture des notes situées au-dessus du do 
médian ; inversement, la ‘’main gauche” donne les notes plus bas- 
ses et utilise la clef de fa. Cela n’est pas une règle absolue ! 

Nous disposons donc désormais d’une base permettant de déter- 
miner la hauteur des notes, mais il faut également leur assigner une 


durée. Si nous donnons à la triple croche la valeur 1, une double 
croche aura pour valeur 2, et ainsi de suite jusqu’à la ronde (32). Ici, 
la durée est une notion relative et non une valeur absolue ; la durée 
effectivement accordée à une note varie énormément selon le tempo 
de la pièce musicale, selon le jeu de l'interprète, etc. 


À triple croche 1 


à double croche 2 
À croche 4 
d noire 8 
J blanche 16 
o ronde 32 


La longueur d'une note peut être augmentée de moitié en la fai- 
sant suivre d’un point. Ainsi, une blanche pointée est l'équivalent 
d'une blanche et d’une noire, et a pour valeur 24. 


RÉSUMÉ 


Maintenant que nous savons comment représenter la hauteur et 
la durée d’une note, nous pouvons revenir au sujet qui nous occupe : 
comment écrire des mélodies pour l’Amstrad. Bien entendu, nous 
pourrions dire encore bien des choses à propos de la notation musi- 
cale ; nous n'avons pas parlé du rythme, du tempo, du phrasé, etc., 
mais un lecteur qui ne connaissait pas encore les partitions musica- 
les devrait maintenant pouvoir suivre le développement qui suit ; cela 
pourrait l’encourager à étudier plus profondément ce qui peut devenir 
une véritable passion. 
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8 
VOLUME ET HAUTEUR D'UN SON 


LA COMMANDE ENV 


Si vous jouez une note sur un piano en maintenant la touche enfon- 
cée pendant quelques secondes, la note commence par une augmen- 
tation rapide du volume, suivie par une période durant laquelle le 
volume baisse lentement. Finalement, le volume diminue et le son 
meurt rapidement lorsque vous relâchez la touche. Ce phénomène 
peut être représenté ainsi : 


A = Attaque 
S = Tenue 

D = Chute 

R = Extinction 


macrO< 





TEMPS > 


On appelle généralement les différentes phases : Attaque, Tenue, 
Chute et Extinction. 

Si nous voulons produire électroniquement une note, nous pou- 
vons donner des valeurs précises aux différentes phases, en spéci- 
fiant la durée de chaque phase et le volume ‘‘gagné’’ ou ‘‘perdu’’ ; 
autrement dit, si nous reprenons le diagramme précédent, nous 
devons donner la longueur des lignes et la valeur des angles. 

La commande ENV nous permet une assez bonne simulation de 
cette action car nous pouvons définir jusqu’à 5 sections. Pour simu- 
ler une note de piano, nous pourrions définir 3 sections ; voici ce 
que pourrait être l'enveloppe d’une note ayant une durée de 2 
secondes : 


| 
N 
IN) 
[l 


compte de pas 9 
taille du pas —1 
temps de pause 20 





compte de pas 5 compte de pas 5 
taille du pas 3 taille du pas —-1 
temps de pause 2 temps de pause 2 


Elle pourrait être représentée par l'instruction : 
ENV 1,5,3,2,9, — 1,20,5, — 1,2 


dans laquelle le premier paramètre est le numéro de l'enveloppe (de 
1 à 15) ; la première section (5,3,2) signifie : 5 pas ayant chacun une 
taille de valeur 3 et une durée de valeur 2 (en 1/100 de seconde) ; 
la deuxième section (9, — 1,20) signifie : 9 pas de taille — 1 et de durée 
20 ; bien entendu, la troisième section (5, —1,2) signifie : 5 pas de 
taille —1 et de durée 2. Ici, la durée représente le ‘‘temps de pause” 
de chaque pas. 

Évidemment, les pas sont en fait une suite de petits sauts ‘’en esca- 
lier’ plutôt qu’une ligne régulière, mais l’effet est à peu près identi- 
que dans la plupart des cas. 

Pour utiliser la commande ENV, nous ajoutons un cinquième para- 
mètre à la commande SOUND ; une commande SOUND correspon- 
dant à la commande ENV décrite précédemment pourrait être 
celle-ci : 


SOUND 1,284,200,0,1 


qui sélectionne 1 comme valeur de l'enveloppe de volume et 0 
comme volume de départ. Bien que vous puissiez faire débuter le 
volume à n'importe quelle valeur (autorisée), il est souvent plus logi- 
que de le faire débuter à 0 si vous utilisez une commande ENV, ce 
qui permettra à toutes les manipulations du volume de se faire sur 
un seul paramètre. 
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Pour travailler sérieusement, il vaut mieux se donner la peine de 
construire le tableau suivant afin de vérifier les calculs : 


NOMBRE TAILLE LONGUEUR LONGUEUR VOLUME 
DE PAS DU PAS DU PAS TOTALE FINAL 


Volume de départ (commande SOUND) 0 
Section 1 : 5 3 2 10 15 
Section 2 : 9 — 1 20 180 6 
Section 3 : 5 —] 2 10 1 


Bien que la valeur du volume de départ donnée dans le tableau 
soit de O, il faut savoir que la valeur du premier pas de la commande 
ENV est ajoutée au volume avant que le son ne soit produit ; la valeur 
du premier son entendu sera donc de 3 dans l'exemple précédent. 

Vous pouvez aisément comprendre pourquoi il vous faut un crayon 
et du papier afin de déterminer correctement l'enveloppe de volume. 
Vous devez vérifier que la durée est exacte et que la valeur du volume 
n'est pas supérieure à 15 où inférieure à 0. (Si vous dépassez ces limi- 
tes, le système ne se bloquera pas ; le volume reviendra au départ 
et prendra une valeur entre O et 15, mais le résultat ne satisfera sans 
doute pas vos espérances.) 

A propos, la durée indiquée dans la commande ENV a pour valeur 
200, comme dans la commande SOUND, mais que se passerait-il s’il 
y avait une différence entre la durée spécifiée dans la commande 
SOUND et celle spécifiée dans la commande ENV ? En fait, c’est la 
valeur de la commande SOUND qui prime, mais il y a une ou deux 
exceptions. Examinons le tableau suivant : 


(Durée spécifiée dans) 


SOUND ENV 

100 100 Durée =100, c'est-à-dire 1 seconde. 

90 100 Durée =90. La commande ENV n'est pas com- 
plètement exécutée. 

100 90 Durée = 100. Le volume demeure constant durant 
les 10 derniers 1/100 de seconde. 

0 100 Durée = 100. 
-5 10 La commande ENV est exécutée 5 fois ; la durée 


est donc de 50. 
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Quand on écoute une seule note, l'effet est gâté par le ‘‘’cliquetis’” 
des changements de volume, mais en utilisant les changements de 
tons et plusieurs voix, nous pouvons insuffler un peu de vie dans une 
mélodie. 


MODIFICATION DE LA HAUTEUR — LA COMMANDE ENT 


Tout comme la commande ENV est employée pour faire varier le 
volume, la commande ENT peut être utilisée pour changer de ton 
pendant que la note est jouée. Sa syntaxe est semblable à celle de 
la commande ENV et peut également contenir 5 sections. Chaque 
section comprend les paramètres suivants : 


° nombre de pas, 
e taille du pas, 
° longueur du pas. 


Une variation rapide de la fréquence constitue un vibrato. C’est 
une technique employée couramment par les instrumentistes et les 
chanteurs. Comme les marteaux du piano percutent les cordes, le 
pianiste ne peut pas réaliser de vibrato, contrairement aux joueurs 
d'instruments à cordes ou à vent. 

L'Amstrad en est capable, bien qu'il faille admettre que le résultat 
est assez mécanique. 

Pour le vérifier, chargez à nouveau God save the queen et entrez 
les modifications suivantes : 


7 ENT —1,1,1,8,1,—-1,8 
40 SOUND 1,PERIODE, DUREE, 4,0,1 


qui demandent au système d'utiliser l'enveloppe de ton n° 1 (le 
sixième paramètre de SOUND). Le premier paramètre de ENT donne 
à l'enveloppe de ton la valeur 1, mais cette valeur est négative pour 
indiquer que cette enveloppe doit être répétée pendant toute la durée 
de la note. Il y a ensuite deux sections : la première spécifie 1 pas 
de 1 période et d’une durée de 8/100 de seconde ; la seconde spéci- 
fie 1 pas de taille -1 et d’une durée identique à la première. 
Cela donne un vibrato agréable et assez réaliste. Si vous n'êtes pas 
d'accord, faites d’autres essais. Modifiez un peu plus la hauteur : 


7 ENT —1,1,2,8,1, -2,8 
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Cela paraît presque extrême pour les longues notes, mais c’est 
acceptable pour des notes courtes. (La fréquence acceptable d’un 
vibrato est liée à un jugement personnel !) 

Remarquez que ces deux instructions ENT ne font varier le ton que 
‘’vers le haut’”’. Pour obtenir un véritable vibrato, entrez : 


7 ENT —1,1,1,5,2,—1,5,1,1,5 


qui fait également varier le ton en dessous du ton initial. C’est un 
Vibrato contenu qui devrait plaire à la plupart des oreilles. 

En augmentant la valeur du temps de pause, le vibrato paraîtra lent 
et paresseux, alors qu’en la réduisant vous obtiendrez un effet plus 
‘tendu’, jusqu’au moment où vous jugerez sans doute que le son 
devient réellement névrotique ! 


C'EST POUR VOUS ! 
La commande ENT n’est pas seulement utile en musique. Entrez : 


10 ENT —1,1,1,2,1,—1,2 
20 GOSUB 1000 
30 GOSUB 1000 
40 SOUND 1,0,200,0 
50 GOTO 20 
1000 REM 
1010 SOUND 49,70,50,15,0,1 
1020 SOUND 28,35,50,5,0,1 
1030 SOUND 42,17,50,5,0,1 
1040 SOUND 1,0,15,0 
1999 RETURN 


Un observateur attentif peut remarquer que le son produit par le 
programme précédent n’est pas absolument correct, car la période 
de la ligne 1030 devrait avoir 17.5 comme valeur idéale. Mais la plu- 
part des téléphones sont un peu ‘‘désaccordés’’ ; nous n’aurons donc 
aucun repentir ! 

Voilà un bon moyen d'améliorer vos programmes en les ‘’embel- 
lissant’” grâce aux commandes sonores ! 


9 
HARMONIE A DEUX ET TROIS VOIX 


Lorsque nous avons expliqué comment faire pour programmer une 
mélodie, dans le Chapitre 6, il a été spécifié que la méthode présen- 
tée n'était pas la plus efficace. Dans ce chapitre, nous examinerons 
une facette du BASIC de l’Amstrad qui permet de programmer beau- 
coup plus aisément des airs musicaux. 


LES QUEUES 


En utilisant la commande SOUND, vous remarquerez qu’un pro- 
gramme en BASIC qui possède plusieurs instructions sonores se ter- 
mine avant la mélodie — il paraît capable de ‘‘distancer’’ l’exécu- 
tion, en quelque sorte. 

Et c’est effectivement ce qui se produit. En fait, la commande 
SOUND place les instructions dans une queue (une file d'attente) 
sonore, et le système d'exploitation prend les sons qui se trouvent 
au début de la queue pour les donner, en temps voulu au synthéti- 
seur sonore. 

La queue semble contenir 4 sons et le programme en BASIC la rem- 
plit très vite, puis attend que le premier son soit joué et que les autres 
sont soient ‘’avancés’’ dans la queue par le système d'exploitation, 
qui donne le deuxième son au synthétiseur. Le BASIC peut alors pla- 
cer la cinquième note dans la queue, et attend impatiemment de pou- 
voir introduire le sixième son. 

Cela paraît bien être une perte de temps, et le BASIC de l’Amstrad 
est conçu de manière à nous éviter une attente inutile. Si le système 
sait que nous voulons être informés du moment où une place sera 
libre dans la file d'attente, nous pouvons aller tranquillement pren- 
dre un bain de soleil en sachant que le BASIC viendra nous réveiller 
avec une tasse de thé fumante quand tout sera prêt. En fait, il s’agit 
d’une interruption semblable à celle que nous avons pu étudier dans 
le Chapitre 2, avec la commande AFTER 
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Donc, si nous envoyons des notes par le canal 1, nous précisons : 
ON SQ({1) GOSUB 3000 


et chaque fois qu’une place est libre dans la queue du canal 1, notre 
programme sera interrompu et passera la main au sous-programme 
3000, qui glissera une autre note dans la queue grâce à une com- 
mande SOUND avant de rendre le contrôle (avec RETURN) au pro- 
gramme principal, qui pourra poursuivre sa tâche un moment 
interrompue. 

Avant que le sous-programme n’atteigne RETURN, nous devons nor- 
malement lui proposer une autre instruction ON SQ(1) GOSUB 3000 
pour valider à nouveau le mécanisme d'interruption. En supposant, 
bien sûr, qu'il y ait d’autres notes à jouer. C’est simple ! 

Cette possibilité est particulièrement utile lorsque nous ajoutons 
de la musique pour soutenir une autre tâche de l'ordinateur, par exem- 
ple un jeu. Apparemment, le BASIC de l’Amstrad est le seul à possé- 
der une telle faculté. 

L'exemple suivant illustrera ce que nous venons d'étudier : 


10 ON SQ{1) GOSUB 3000 
20 GOTO 20 


3000 REM AJOUT AU CANAL 1 
3010 SOUND 1,284 + Jx8,300,4 
3020 J=J+1 

3030 PRINT J 

3040 ON SQ{1) GOSUB 3000 
3050 RETURN 


Vous verrez que les premiers nombres sont affichés très rapidement 
pendant que les premiers sons se placent ‘‘à la queue leu leu”’ dans 
la file d'attente ; ensuite, l'affichage est beaucoup plus lent. Bien 
entendu, dans un véritable programme, la ligne 20 accomplirait une 
tâche utile au lieu de faire une simple boucle sur elle-même. 


SYNCHRONISATION 


Jusqu'à présent, nous n'avons utilisé qu’un seul canal, le canal 1 
ou À. Augmentons nos exigences et réquisitionnons les canaux B et C : 
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10 SOUND 1,284,200 
20 SOUND 2,338,200 
30 SOUND 4,426,200 


Remarquez que le canal € n'a pas la valeur 3, comme vous pour- 
riez vous y attendre, mais 4, car le premier paramètre de SOUND 
représente un ‘statut du canal” associé à un bit significatif, et : 


e 1 valide le bit O : dirige le son vers le canal À, 
e 2 valide le bit 1 : dirige le son vers le canal B, 
e 4 valide le bit 2 : dirige le son vers le canal C, 


e 8 valide le bit 3 : synchronisation avec le canal À, etc. 


L'accord ainsi déterminé (un accord parfait en ré majeur) semble 
débuter par une ‘‘frappe’’ simultanée des 3 notes, mais cette impres- 
sion est simplement due au fait que le BASIC est rapide. Insérez : 


25 FOR J=1 TO 500 : NEXT J 


et vous comprendrez le problème. Mais nous pouvons éviter cet ennui 
en profitant de la faculté de synchronisation. 

Normalement, lorsqu'un son est placé dans la queue par la com- 
mande SOUND , il est joué dès qu'il parvient au sommet de la queue. 
Mais vous pouvez lui associer des bits supplémentaires, ou des ‘‘indi- 
cateurs’’, qui modifieront tout cela. 

Si vous envoyez un son vers le canal A en lui demandant de se 
synchroniser avec le canal B, le son attendra sagement dans la queue 
jusqu'à ce qu’un son soit arrivé au sommet de la queue du canal B 
— auquel on aura demandé de se synchroniser avec le canal A ! Alors, 
et alors seulement, les queues des deux canaux libéreront leur note 
respective et produiront ainsi un accord merveilleusement 
synchronisé. 

Essayez : 


SOUND 33,284,200 


Il ne se passe rien. Nous avons entré un son dans la file d'attente, 
mais nous avons validé le bit 5 et le bit 1 du premier paramètre ; or, 
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la validation du bit 5 signifie ‘synchronisation avec le canal C’’ (dans 
le manuel de l’Amstrad, on parle également de ‘’rendez-vous’ ; voir 
page 6.5). 

Si nous tapons maintenant : 


SOUND 4,426,200 


nous entendons une note jouée par le canal C, mais il n’y a encore 
rien sur le canal A car il n’était pas précisé que la note envoyée vers 
le canal € devait être synchronisée avec une note du canal A. Nous 
devons entrer : 


SOUND 12,426,200 


et cette fois nous entendons deux notes, car la valeur ‘‘12’’ valide 
les bits 2 et 3, et cela signifie ‘’envoyer la note vers le canal C en 
effectuant une synchronisation (un rendez-vous) avec le canal A”. 

La même méthode peut être utilisée avec le canal B et nous pou- 
vons diriger des sons vers différents canaux à différents moments en 
sachant qu'ils seront joués simultanément. Quel soulagement ! 

Ce n’est pas seulement vital pour la première note d’une pièce musi- 
cale, mais également pour les accords ultérieurs. Dans la plupart des 
pièces, les différentes voix produiront des notes de durées différen- 
tes, et le canal A peut vouloir jouer 32 notes pendant que le canal 
B en joue 8 et que le canal C en joue 6 ! Ainsi, certaines notes seront 
synchronisées et d’autres ne le seront pas. 


UN CADRE POUR L'HARMONIE 


Forts de notre nouveau savoir, nous allons concevoir un cadre qui 
nous permettra de réaliser des airs à deux ou trois voix en utilisant 
la synchronisation et les queues sonores. La mélodie choisie pour 
vérifier notre cadre est une bourrée de Haendel 


S REM COPYRIGHT (C) 1984 JOHN BRAGA 
10 REM JOUER UNE MELODIE DE 1 À 3 VOIX 
15 TRUE=-1 : FALSE=0: DONE (1) =TRUE : DONE (2) =TRUE: DONE (4) =TRUE 
20 NUMVOICE=S 
30 SYNCHA=B : SYNCHB=16: SYNCHC=32 
40 TEMPO=4 
50 GOSUB 1000 : REM INITIALISATION 
60 ON 4-NUMVOICE GOTO 70,80,90 
GOSUB 70 on sa(4) -68F8- 4100 
GOSUB 80 ON 5@(2) -68F9- 4050 
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GOSUB 
90 ON S@(1) -G8F8- 4000 
100 IF DONE(1) AND DONE(2) AND DONE(4) THEN 110 ELSE 100 
110 INPUT "ENCORE UNE FOIS ";Z$ 
120 IF UPPER$(Z$)<>"O" THEN 200 
130 DONE (1) =0: DONE (2) =0: DONE (4) =0: NOTE (1) =0: NOTE (2) =0: NOTE (4) =0: GOT 
0 60 
200 END 
1000 REM INITIALISATION 
1010 DIM PERIOD(4,200) ,DUR(4,200) ,SYNCH(4,200) 
1020 FOR J=1 TO NUMVOICE 
1030 CHANNEL=2" (J-1) 
1040 NUMNOTES=0 
1050 DONE (CHANNEL ) =FALSE 
1060 IF CHANNEL=1 THEN RESTORE 5000 
1070 IF CHANNEL=2 THEN RESTORE 5400 
1080 IF CHANNEL=4 THEN RESTORE 5700 
1100 READ NOTE$ , DURATION, SYNCH$ 
1110 IF NOTE$="" THEN 1500 
1120 GOSUB 2000 : REM CALCUL DE PERIODE AVEC NOTE$ 
1200 NUMNOTES=NUMNOTES+1 
1210 PERIOD (CHANNEL , NUMNOTES) =PERI1OD 
1220 DUR (CHANNEL , NUMNOTES) =DURAT ION* TEMPO 
1230 SYNCH (CHANNEL , NUMNOTES) =SYNCH 
1240 GOTO 1100 
1500 PERIOD (CHANNEL ,0) =NUMNOTES 
1510 NEXT J 
1600 ENT -1,1,1,7:1,-1,7 
1999 RETURN 
2000 REM CALCUL D'OCTAVE ET NOTE AVEC NOTES 
2010 Z$=LEFT$ (NOTES, 1) 
2020 NOTE=INSTR("C D EF G A BR",Z#$)-1 
2025 IF NOTE=12 THEN OCTAVE=0:GOTO 2100 
2030 IF NOTE<O THEN OCTAVE=S : DUR=1 : GOTO 2999 
2040 Z$=RIGHT$ (NOTES, 1) 
2050 IF Z$="#" THEN NOTE=NOTE+1 
2060 IF Z$="b" THEN NOTE=NOTE-1 
2080 OCTAVE=VAL (MID$ (NOTE$,2,1))-3 : REM SI OCTAVE<O ALORS OCTAVE=1 
2090 IF NOTE<O THEN NOTE=0 : OCTAVE=OCTAVE-1 
2100 GOSUB 3000 
2110 SYNCH=0 
2120 FOR J1=1 TO LEN(SYNCHS) 
2130 IF MID$(SYNCH$,J1,1)="A" THEN SYNCH=SYNCH+SYNCHA 
2140 IF MID$(SYNCH$,J1,1)="B" THEN SYNCH=SYNCH+SYNCHB 
2150 IF MID$(SYNCH$,J1,1)="C" THEN SYNCH=SYNCH+SYNCHC 
2160 NEXT Ji 
2999 RETURN 
3000 REM CALCULER PERIODE AVEC OCTAVE ET NOTE 
3005 IF NOTE=12 THEN PERIOD=0 : GOTO 3999 
3010 FREG=261.626% (2* (OCTAVE+NOTE/12) ) 
3020 PERIOD=ROUND (125000 ! /FREQ) 
3999 RETURN 
4000 CHANNEL=1 
4040 GOTO 4200 
4050 CHANNEL=2 
4090 GOTO 4200 
4100 CHANNEL=4 
4200 NOTE (CHANNEL ) =NOTE (CHANNEL ) +1 
4205 VOL=S 
4207 TONE=0 
4210 SOUND CHANNEL +SYNCH (CHANNEL , NOTE (CHANNEL ) ) , PERIOD (CHANNEL , NOTE 
(CHANNEL) ) , DUR (CHANNEL , NOTE (CHANNEL) ) ,VOL ,0, TONE 
4220 IF NOTE (CHANNEL ) >=PERIOD (CHANNEL ,0) THEN DONE (CHANNEL ) =TRUE : GO 
TO 4999 
4300 J=CHANNEL 
4310 IF J>3 THEN J=3 
4320 ON J GOTO 4400,4420,4440 
4400 ON S@(1) GOSUB 4000 
4410 GOTO 4999 
4420 ON SQ(2) GOSUB 4050 
4430 GOTO 4999 
4440 ON 5Q(4) GOSUB 4100 
4999 RETURN 
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5000 REM DONNEES POUR LE CANAL A 
5010 DATA DS5,6,C,R,253D5373CoR5155B4563CoR3255C5:4C,B4,4,,04,4,C,G 
4,3,,R,1," " 

5015 DATA ES,6,C,R,2,,65,14,C,R,2,,F5#,4,C,E5,5,,R,1," 
5020 DATA D5,5,C,R3,33:C5545C,B4,3,3R315,04,4,C,B4,4,,C5,4,C,A4,5,,R 
1," " 

5025 DATA B4,6,C,R,2,,64,14,C,R,2,,04,6,C,;R,2," 
5030 DATA B4,4,C,C5#,4,,D5,4,C,B4,3,,R:1,C5#,4,C,D5,4,,E5,4,C,C5#, 
3,,R,1," " 

5035 DATA D5,4,C,E5,4,,F5#,4,C,D5,3,,R,1,,E5,4,C,F5#,4,,65,4,C,E5,3 
,5R31," " 

5040 DATA F54,4,C,65,4,,A5,4,C,R,4,,A4,4,C,R,4,,C5#,4,C,R,4,,D5,20, 
C,R,4," " 

5050 DATA A5,6,C,R,2,,A5,8,C,F5#,6,C,R,2,,65,4,C,F5#,4,,E5,4,C,D5,3 
55R31," " 

5055 DATA G65,6,C,R,2,,B5,14,C,R,2,,E5,7,C,R,1," " 

5060 DATA D54,8,C,E5,8,C,F54,7,C,R,1,:65,4,C,05,3,,R,1," " 

5065 DATA 65,6,C,R,2,,E5,14,C,R,2,D5,14,C;R,2," 

5070 DATA C5,4,C,B4,3,,3R3,13C53993CoR5 33 5CS5143C 

5075 DATA R,2,,B4,4,C,A4,3,,R,1,:B4,6,C,R,2,,D5,6,C,R,2," " 

5080 DATA E5,4,C,F54,4,,65,4,C,E5,3,R5:155F5#,4,C,65,4,,45,4,C,F54, 
3,,R,1," " 

5085 DATA 65,4,C,A5,4,,B5,4,0,65,3,,R,1,,45,4,C,B5,4,,C6,4,C,A5,3,, 
R,1," " 

5090 DATA B5,5,C,R,3,,A5,4,0,65,3,,R,1,,F5#,4,C,65,4,,A5,4,C,F5#,3, 
Rs1," : 

5095 DATA 65,4,C,A5,4,,B5,4,0,65,3,,R,1,,5,6,C,R,2,,C6,6,C,R,2," 
5100 DATA B5,6,C,R,2,,A5,4,C,G5,335R5l39F5#54CG65,4,,A5,4,C,F5#,33 
1," " 

5105 DATA G5,4,0C,A5,4,,B5,4,C,65,3,,R,1,,A5,4,C,B5,4,,C6,4,C,A5,3,, 
R,1," " 

5110 DATA B5,4,C,Cé6,4,,D6,7,C,R,1,,B5,7,C,R,1505,4,C,65,4," 
5115 DATA R,2,BC,;R,6,,65,24," " 

5399 DATA “",0," " 

5400 REM DONNEES POUR LE CANAL B 

5410 DATA R,2,AC,R,3,,B3,27," " 

5699 DATA “",0," " 

5700 REM DONNEES POUR LE CANAL C 

5705 DATA 65,5,4,F34,7,4,63,5,4,D4,6,A,E4,5,A 

5710 DATA C3,6,h,C4,5,A,R,3,,B%,4,,C4,5,A 

5715 DATA F3#,6,4,63,6,A,C3,6,4,D5,6,A,62,6,A,63,14,4,D3,6,A 

5720 DATA 63,6,A,F3#,6,A,E3,6,A,A3,5,A,F3#,6,A,D4,5,A,C4#,6,A,A3,5, 
A,D4,4,A,F34,4,A,A5,4,A,A2,4,A,D3,8,A,D4,4,,C4#,4,,D4,6," " 

5725 DATA D3,5,4,D4,7,A,43,5,A,D4,6,A,C4,5,A 

5750 DATA E3,5,A,62,4,A,A3,4,,85,8,,C4,7,A 

5735 DATA B2,8,A,E3,8,A,43,8,A,H3,7,4 

5740 DATA E3,4,A,R,4,,E4,14,A,E3,6,A,R,2," " 

5745 DATA E2,8,,634,8,A,A2,6,A,A2,6,A,R,2," " 

5750 DATA D3,8,,F54,8,4,63,6,A,B2,4,A 

5755 DATA C:,4,A,A5,4,A,D4,4,A,C4,4,A 

5760 DATA E7,4,A,64,4,4,F4#,4,A,D4,4,A 

5765 DATA G:,4,A,B2,4,A,D4,4,A,D3,4,A 

5770 DATA EZ,4,A,C4,4,4,F5#,4,A,D4,4,A 

5775 DATA G2:,4,4,B3,4,A,D4,4,A,C4,4,A 

5780 DATA B:,4,A,62,4,4,F5#,4,A,D3,4,A 

5785 DATA 63,5,4,B%,5,A,D4,5,4,D3,5,4 

5790 DATA R,2,4B,63,30," " 

5899 DATA “",0," " 


COMMENTAIRE SUR LA BOURRÉE 


La partie principale du programme occupe les lignes 10 à 200. Cer- 
taines variables sont initialisées et un saut est accompli jusqu'au sous- 
programme 1000 où sont définis les tableaux qui contiennent les notes. 
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Ensuite, les sous-programmes d'interruption sont amorcés par les lignes 
70-90 et le programme fait une boucle à la ligne 100 jusqu'à ce que 
toutes les voix aient achevé leur partition. 

Le sous-programme 1000-1999 définit 3 tableaux, PERIODE, DUREE 
et SYNCH, qui contiennent les valeurs de chaque note pour chaque 
voix. Les valeurs représentent évidemment la période, la durée et la 
synchronisation. Les notes sont lues par les instructions DATA com- 
mençant à la ligne 5000 et le sous-programme 2000-2999 est utilisé 
pour convertir une note en une période. Les instructions RESTORE 
des lignes 1060-1080 sont superflues si les 3 voix sont utilisées, mais 
sont utiles au cas où vous faites jouer un seul canal (voir plus loin). 

Le sous-programme 3000-3999 est appelé par le sous-programme 
2000. 

Le sous-programme 4000-4999 contient des instructions qui sont 
appelées par le BASIC chaque fois qu’il y a une place vide dans une 
queue. || contient la commande SOUND qui prend les notes des 
tableaux (définis en 1000-1999) pour les placer dans les queues. 
Remarquez que le sous-programme d'interruption musicale doit se 
réinitialiser avant de donner le contrôle au programme principal avec 
la commande RETURN. 

Les instructions DATA débutent en 5000 et sont divisées en trois 
sections, une section pour chaque voix. Remarquez l’utilisation de 
R pour créer un ‘’reste”’, c’est-à-dire une période de silence. 


INTERPRÉTATION 


l'est fascinant de voir comment on peut modifier l'interprétation 
de la bourrée (et bien entendu de n'importe quelle autre mélodie) 
en effectuant simplement de petits changements parmi les instruc- 
tions DATA. Nous allons présenter quelques-uns de ces changements : 
bien d'autres possibilités vous sont offertes. 

Vous vous demandez peut-être pourquoi les instructions DATA du 
programme contiennent tant de restes, et pourquoi les valeurs de 
. durée des noires vont de 4 à 8. La réponse est que certaines notes 
doivent être jouées staccato (brèves et bien détachées) et qu’elles 
ont des durées plus courtes. La valeur entière est complétée par un 
reste dans le cas du canal A, mais ce n’est généralement pas néces- 
saire pour le canal € car la synchronisation oblige de toute manière 
ce canal à ‘’attendre’’ le canal A. 
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Des restes de faible valeur sont utiles pour que la note suivante 
paraisse ‘’articulée’’ plutôt que “liée”. Avec le programme précé- 
dent, il est possible de réaliser de nombreuses expériences sur la durée 
des notes et sur les effets des restes. Vous pouvez nettement trans- 
former l'interprétation si vous le désirez. 

Une enveloppe de ton est utilisée par les canaux B et C, mais pas 
par À, car nous pensons que le plus petit vibrato réalisable est exces- 
sif sur des notes élevées. On aimerait, de manière idéale, pouvoir 
réaliser un vibrato avec des valeurs inférieures à une période dans 
le registre supérieur, et ce n’est malheureusement pas possible. Mais 
n'hésitez pas à travailler sur la commande ENT de la ligne 1600 et 
sur l'instruction de la ligne 4207. Essayez : | 


4207 TONE=0 
pour ne pas avoir de vibrato, puis : 
4207 IF CANAL =4 THEN TONE=1 ELSE TONE=0 
pour un vibrato sur le canal bas uniquement, puis : 
4207 TONE=1 


pour un vibrato sur les troix canaux — ou modifiez complètement 
la commande ENT ! 

Testez aussi le contrôle de volume de l'instruction 4205. Il n'y a 
pas de commande ENV, mais vous pouvez essayer de donner une 
prédominance à la voix supérieure si vous le désirez. Essayez : 


4205 IF CANAL =1 THEN VOL=5 ELSE VOL =4 


ou quelque chose de ce genre. 


Remarquez comment est définie la dernière mesure (lignes 5115, 
5410 et 5790). || y a au début de la mesure un petit reste synchronisé 
qui, à proprement parler, n’est pas dans le tempo. Cela donne l'effet 
d’un léger glissement. Ensuite, les notes sont légèrement ‘’décalées”’ 
à partir des basses pouur produire un effet d’arpège. Ce style est par- 
ticulièrement courant dans la musique pour clavecin, et cette bour- 
rée a été écrite pour le clavecin. Enfin, la dernière note a une durée 
plus longue que prévu. Il ne s’agit pas d’une erreur ! 
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ENTRER UNE MÉLODIE 


Bien entendu, le programme précédent peut être utilisé comme 
base pour créer de nombreuses pièces musicales. Dans la plupart des 
cas, il suffira de modifier les instructions DATA des lignes 5000-5399 
(canal A), 5400-5699 (canal B) et 5700-5899 (canal C). 

Créer un air est un processus laborieux et il vaut mieux l’accom- 
plir par étapes. Chargez d’abord le programme de bourrée et sup- 
primez toutes les instructions DATA, à l'exception des instructions 
‘‘finales’”” (lignes 5399, 5699 et 5899). 


Entrez d’abord les instructions DATA du canal A, puis effectuez 
les modifications suivantes avant d'exécuter le programme : 


20 NUMVOIX = 1 
30 REM … 


Cela supprime effectivement la synchronisation. Vérifiez ‘‘à l’oreille’’ 
la valeur et la durée des notes. Testez de petits restes pour obtenir 
l'articulation voulue. Vous verrez que votre tâche sera considérable- 
ment simplifiée si vous employez des instructions DATA plutôt cour- 
tes — généralement, une instruction par mesure ; cela facilitera la 
recherche des erreurs. Vous pouvez modifier 2 instructions qui ser- 
vent à la vérification de la mélodie : 


1105 PRINT NOTE$;" ”; 
1505 PRINT 


Entrez ensuite la ‘‘’partition’’ des basses. Il n’est pas très utile d’exé- 
cuter cette partie toute seule, car elle doit être synchronisée avec le 
canal À, et elle paraîtra plutôt bizarre si vous avez placé une com- 
mande REM à la ligne 30. Mais rendez aux lignes 20-30 leurs valeurs 
correctes et entrez : 


4205 IF CANAL =4 THEN VOL =4 ELSE VOL =0 
qui permettra de n’entendre que les basses. Une fois encore, vous 


pouvez jongler avec l'articulation des notes. Modifiez ensuite la ligne 
4205 pour pouvoir entendre simultanément les différentes voix. 
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S'il le faut, ajoutez la voix médiane de la même manière, en l’exé- 
cutant d’abord séparément, puis avec la voix supérieure, et finale- 
ment avec les deux autres voix. Tout cela peut être réalisé en modi- 
fiant l'instruction 4205. 


LE JUGEMENT MUSICAL 


Espérons que les considérations qui précèdent vous auront claire- 
ment montré combien il serait difficile de faire jouer ‘’musicalement’’ 
à un ordinateur une pièce de musique classique. Plus on cherche 
à obtenir un effet agréable, plus on comprend à quel point l’exécu- 
tant s'éloigne de la partition écrite, dans l'intérêt d’un jugement per- 
sonnel. Cependant, la pratique d’un musicien l'amène à un niveau 
où il n’a pas besoin de penser consciemment à l’altération de la durée 
d'une note, car il reconnaît intuitivement si ‘’le son est bon’’. Nous 
devons par contre trouver et corriger chaque note avec une chaîne 
introduite par une instruction DATA ! 

Certaines personnes peuvent critiquer le programme précédent en 
considérant que le son est ‘’électronique’’ et l'effet mécanique, mal- 
gré nos efforts pour l’humaniser. Il est exact que l'effet musical ne 
sera jamais très réaliste. Mais sa valeur est justement liée à notre appré- 
ciation du réalisme, à nos efforts pour reconnaître ce que l’exécu- 
tant humain offre ‘‘en plus”, afin de pouvoir nous approcher un peu 
de ce qu’il accomplit. Notre appréciation de la musique et du talent 
d'un musicien ne peut qu'être augmentée par un tel exercice. 
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10 
EFFETS SPÉCIAUX 


Jusqu'à présent, nous n'avons pratiquement considéré le synthéti- 
seur sonore que d’un point de vue purement musical. Comment l’uti- 
liser pour agrémenter des jeux ? 


LE CANAL DE BRUIT 


Il existe un paramètre supplémentaire de la commande SOUND 
que nous n’avons pas encore examiné dans cet ouvrage. Une période 
de bruit peut être ajoutée au son, et sa valeur peut varier de 1 à 31. 
Entrez les lignes suivantes pour écouter l'effet produit : 


10 FOR J=1 TO 31 
20 SOUND 1,0,100,4,0,0,J 
30 NEXT J 


et vous verrez que le son devient plus ‘’profond’’ à mesure que s'élève 
la valeur de la période de bruit. Essayez : 


5 FOR J=1TO2 

10 FOR J1=16 TO 31 

20 SOUND 1,0,5+J1,5,0,0,J1 
30 NEXT J1 

40 FOR J1=31 TO 12 STEP -1 
50 SOUND 1,0,7,6,0,0,J1 

60 NEXT J1 

70 NEXT J 


et vous entendrez les rafales du vent qui souffle en tempête. 
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BRUITS DE PAS, EXPLOSIONS, SCIES... 


L'exemple précédent utilisait uniquement le canal de bruit. Il peut 
néanmoins être combiné avec des tons ‘’normaux’’. Essayez : 


10 FOR VOL =1 TO 7 STEP 0.25 
20 SOUND 1,95,1,VOL,0,0,1 

30 SOUND 1,400,1,VOL,0,0,31 
40 SOUND 1,0,20,0 

50 NEXT VOL 


Cet exemple simple peut subir bien des modifications et être uti- 
lisé dans de nombreux jeux afin de produire des bruits de pas, de 
bombe à retardement, d'horloge, etc. (Dans certains cas, il vous fau- 
dra beaucoup d'imagination.) 

Le son suivant évoque le bruit d’une scie circulaire entamant un 
tronc coriace : 


10 ENT 1,10,1,8 

15 ENV 1,5,1,5,1,0,200 

20 SOUND 1,50,200,6,1,1,3 
30 SOUND 1,48,50,5,1,1,6 

35 SOUND 1,48,10,5,1,1,1 

40 SOUND 1,50,150,6,1,1,3 


Vous pouvez baptiser vous-même les bruits horribles que voici, en 


espérant que vous pourrez leur trouver une utilisation. 


et 


10 FOR J=1TO5 

20 ENV 1,1,1,20 

30 ENT —1,1,3,1 

40 SOUND 1,284, — 5,10,1,1,3 
50 NEXT J 


10 ENT —1,1,4,2,1,—-4,2 
20 SOUND 1,50,100,4,0,1 


C'est un excellent domaine d’expérimentation. Il y a peu de règles, 
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mais une bonne compréhension de la syntaxe des diverses comman- 
des sonores vous aidera à découvrir de nombreux sons fascinants. 


L'ATTENTE ET LE “FLUSH" 


Lorsqu'on veut ajouter des sons à un jeu, la généreuse commande 
SOUND peut nous offrir une astuce dont nous n’avons pas encore 
parlé. Vous vous souvenez que chaque canal possède une queue 
sonore. Si l’on crée un son et qu’on lui associe l'indicateur FLUSH 
(en validant le bit 7), tous les sons qui se trouvent dans la queue — 
et même celui qui est joué à ce moment — sont instantanément annu- 
lés et le son associé au FLUSH est produit par le canal correspon- 
dant. De cette manière, si vous synchronisez une explosion avec une 
action particulière se déroulant sur l'écran, vous pouvez lier directe- 
ment ce son à la frappe d’une touche déterminée. 

Comme le FLUSH est défini par le bit 7, vous devrez avoir une ins- 
truction de ce genre : 


10 FLUSH = 128 
1010 SOUND 1 +FLUSH,... 


Le bit 6 — de valeur 64 — est appelé bit d'attente ; s’il est validé, 
il oblige le premier son (et tous ceux qui le suivent dans la queue) 
à demeurer en attente jusqu'au moment où il sera libéré. La com- 
mande de libération est la commande RELEASE ; ainsi : 


RELEASE 4 


libérera tous les sons en attente dans le canal C, sans affecter les autres 
canaux. Vous pouvez ainsi préparer les queues sonores puis, grâce 
à une simple commande RELEASE, libérer toutes les forces de l'enfer. 

Si aucun son n’est en attente dans un canal au moment où une 
commande RELEASE est exécutée, cela n'aura aucune conséquence 
fâcheuse. 


Ill 
LES POSSIBILITÉS 


GRAPHIQUES 





Cie partie revient aux délices graphiques de l’Amstrad et explore 
certaines possibilités concernant la manipulation des couleurs et l’ani- 
mation, en proposant également des exemples d'utilisation du gra- 
phisme pour les schémas et les diagrammes. 


11 
ANIMATION ET ILLUSION 


Avec une animation très simplifiée, nous voulons déplacer un per- 
sonnage sur l'écran. Pour cela, il nous faudra afficher le personnage, 
puis l’effacer et l'afficher à une position voisine. 


5 PERSON$ = CHR$(250) 
10 CLS 
20 Y = 23 : LOCATE 1,Y : PRINT PERSONS$; 
30 FOR X=1 TO 39 
40 LOCATE X,Y 
50 PRINT ‘ ‘’; PERSON; 
60 NEXT 


Vous avez pu remarquer que le personnage se déplace d’une 
manière un peu saccadée, avec des à-coups. Si vous insérez : 


45 CALL &BD19 


l’action sera nettement plus régulière. Cela est dû au fait que vous 
utilisez maintenant une routine (un sous-programme) du système 
d'exploitation qui attend le ‘retour de trame”. C'est la période durant 
laquelle le système ne rafraîchit pas l'écran, et c’est donc le meilleur 
moment pour écrire sur l'écran. 

Le retour de trame est directement lié au temps, et le résultat sera 
donc différent selon la position que vous donnerez au personnage. 
Modifiez la ligne 20 en: 


20 Y =8 : … 


et vous comprendrez ce que cela signifie ! Des tests sont manifeste- 
ment nécessaires. 
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UNE BALLE QUI REBONDIT 


En améliorant la technique simple exposée précédemment, nous 
pouvons écrire un programme permettant de faire rebondir une balle 
tout autour de l'écran. Chaque fois qu’elle touchera un bord, elle 
rebondira selon un angle particulier. Le programme de base est le 
suivant : 


10 CLS 

20 BALL$ = CHR$(231) 

30 X=20 : Y=21 

40 XDIR = 1 : YDIR=1 

50 LOCATE X,Y : PRINT “ ”; 

60 X = X+XDIR : Y= Y+YDIR 

70 IF X<1 THEN X=1 : XDIR=1 

80 IF X > 40 THEN X=40 : XDIR = -1 
90 IF Y < 1 THEN Y =1 : YDIR=1 
100.1F Y > 25 THEN Y =25 : YDIR = -1 
110 LOCATE X,Y 

120 PRINT BALL; 

130 GOTO 50 


Cela marche, mais on peut améliorer le programme. Ajoutez : 


15 BORDER 6 
115 CALL &BD19 


Sur certaines lignes, la balle est encore effacée avant même d'être 
affichée ! Essayons de la ralentir un peu. 


125 FOR J=1 TO 5 : NEXT J 


Voila qui est beaucoup mieux ! Si quelqu'un veut réaliser un jeu 
avec un citron qui rebondit, nous avons ce qu'il faut... 

La ligne 125 représente une perte de temps. Il vaudrait mieux, dans 
un véritable jeu, considérer le programme précédent comme une 
sous-tâche que nous pourrions appeler à intervalles réguliers comme 
ceci : 


EVERY 10 GOSUB 
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Quelques tests nous permettront de trouver la vitesse idéale. 

Nous pourrions ajouter un peu de variété, des obstacles pour modi- 
fier la trajectoire de notre balle ? Pour l'instant, sa direction ne change 
que lorsqu'elle atteint le bord de l'écran. Pour ‘‘gérer’’ les obstacles, 
il nous faudra une méthode permettant de vérifier si la position de 
l'écran à laquelle nous voulons placer la balle est libre ou non. Cela 
n’est pas directement possible avec le BASIC (à moins de prendre 
en considération la commande TEST), mais il existe une routine du 
système d'exploitation intitulée TXT RD CHAR qui accomplit exac- 
tement ce que nous souhaitons en lisant et en donnant la valeur du 
caractère situé à la position actuelle du curseur. Les jeux des Chapi- 
tres 12 et 13 utilisent tous deux cette routine, et vous pouvez la copier 
dans vos propres programmes. 


JONGLER AVEC LES ÉCRANS ET LES ENCRES 


La technique qui consiste à effacer et redessiner successivement 
une image est employée dans de nombreux jeux. Elle est aisée à pro- 
grammer et se révèle assez efficace, mais elle a bien sûr des limites, 
car si vous voulez déplacer simultanément plus d’un caractère, il vous 
faudra effacer plusieurs emplacements avant de les redessiner, et vous 
aurez un programme plus lent. 


Il existe d’autres moyens permettant de déplacer des objets sur 
l'écran. Dans le Chapitre 5, nous avons montré que nous pouvions 
conserver en RAM deux zones de mémoire écran et les faire alter- 
ner. L’exécution était quasi instantanée et pouvait donner l’impres- 
sion d’un mouvement rapide. On dessine un objet à un emplace- 
ment donné en utilisant la mémoire écran normale, débutant en 
&C000, et on le redessine à un emplacement légèrement différent 
en utilisant la zone débutant à l'adresse &4000. Ensuite, il suffit de 
faire passer l'écran d’une zone à l’autre. 


Cela nous procure un avantage : l’objet peut être bien plus large 
qu'un simple caractère. Mais il y a également un inconvénient : il 
faudra généralement plusieurs secondes pour dessiner le caractère, 
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et son déplacement sera lent. Les programmeurs avertis peuvent amé- 
liorer cette idée en exécutant un déroulement (scrolling) de la 
mémoire écran, de sorte que le caractère semble bouger, ou en exé- 
cutant des instructions POKE qui placent directement des données 
dans une mémoire écran tandis que l’autre est affichée. De telles 
méthodes sont communément utilisées dans les meilleurs jeux 
d'arcade, et elles sont programmées en langage d'assemblage. 


A la fin du Chapitre 4, nous avons dit qu'un emploi judicieux des 
encres pouvait donner l'illusion que des objets apparaissaient et dis- 
paraissaient. Si nous sommes en mode 1, nous disposons de 
4 couleurs. Une couleur est normalement assignée au fond de l'écran ; 
cela nous en laisse 3 pour dessiner. Si nous donnons à chaque encre 
la couleur du fond, nous pouvons alors dessiner sur l'écran 3 images 
différentes (non superposées), à raison d’une image par couleur de 
stylo, mais sans qu'aucune de ces images n’apparaisse. L'écran est 
apparemment vide. Ensuite, en modifiant successivement les encres, 
nous pouvons faire apparaître ou disparaître les objets à volonté, c'est- 
à-dire les déplacer ! 


Bien entendu, si nous utilisons le mode 0 et deux zones de mémoire 
écran, nous pourrons dessiner 15 objets dans chaque zone et mon- 
trer un objet à 30 positions différentes. 


PLANS MULTIPLES 


Tout cela peut être très avantageux dans certaines circonstances, 
mais vous aurez remarqué que les images ne doivent pas se super- 
poser, sans quoi l’image du ‘premier plan” effacerait l'image du 
‘second plan”. Comment créer l'illusion d'un objet émergeant de 
derrière un autre ? 

Imaginons trois plans : un premier plan, un second plan, et un fond. 
Nous devons être capables de montrer : 


e le fond (une simple couleur) ; 
e un objet au second plan (cachant le fond) ; 
° un objet au premier plan (cachant le fond) ; 


°_un objet au premier plan (cachant à la fois le second plan et le fond). 
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Cela fait 4 états différents. Eten mode 1 nous avons 4 encres diffé- 
rentes, ce qui devrait vous amener à réfléchir. Si nous utilisions l'encre 
0 pour le fond, l’encre 1 pour le second plan, et les encres 2 et 3 
pour les 2 états du premier plan ? 


Cette idée semble prometteuse, mais comment pouvons-nous, lors- 
que nous écrivons au premier plan, décider rapidement s’il faut uti- 
liser l'encre 2 où 3 à un emplacement particulier ? Et comment effa- 
cer un objet du premier plan sans effacer également l’image du second 
plan qu’il pourrait cacher ? 


Il devrait y avoir une réponse à cela. Et bien sûr il y en a une (sinon, 
nous ne nous serions pas donné la peine de faire tout ce développe- 
ment !). La réponse réside dans le ‘’mode d'encre graphique”. 


Nous n’en avons pas encore parlé. Quand vous écrivez un carac- 
tère où dessinez une ligne en utilisant, par exemple, l'encre 1, vous 
pensez peut-être que tous les pixels nécessaires à sa composition ont 
la couleur de l’encre 1. Et ce peut effectivement être le cas si le mode 
d'encre graphique est défini comme mode normal, mais pas néces- 
sairement s’il est dans un état différent ! Il possède 4 états, et dans 
3 d’entre eux la nouvelle encre réagit d’une certaine manière avec 
l’ancienne. 


État O0 (Mode forcé) La nouvelle encre recouvre l’ancienne. C'est 
l’état normal, et celui que nous avons toujours utilisé jusqu’à 
présent. 


État 1 (Mode XOR — ou mode OÙ exclusif) La couleur du pixel 
est le résultat d’une opération de type OÙ exclusif entre 
la nouvelle encre et l’ancienne. 


État 2 (Mode AND — où mode ET) Résultat d’une opération AND 
(et) entre la nouvelle couleur et l’ancienne. 


État 3 (Mode OR — où mode OÙ) Résultat d’une opération OR 
(ou) entre la nouvelle couleur et l’ancienne. 


(Pour vous remémorer la signification des expressions AND, OR 
et XOR, consultez le manuel de l’Amstrad, Chapitre 4). 

Imaginons que nous avons mis le mode d'encre graphique à l'état 
3 — en mode OR. Maintenant, si le fond est coloré par l'encre O0 et 
le second plan par l'encre 1, nous pouvons dessiner au premier plan 
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à l'encre 2. En fait, nous n’écrivons jamais avec l'encre 3. Le résultat 
sera : 


ANCIENNE ENCRE NOUVELLE ENCRE RÉSULTAT 
0 (fond) 0 fond) 
0 second plan) 
0 


second plan) 
premier plan 
cachant le 

second plan) 


1 (second plan) 


0 ( 
1{ 
2 (premier plan) 
T{ 
1 3 ( 
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Bien entendu, les encres 2 et 3 doivent être de la même couleur 
pour que l’image paraisse toujours identique, mais en fait elles sont 
différentes car nous devons être capables de faire la différence lorsqu'il 
faut les effacer ! Néanmoins, en ce qui nous concerne, nous ‘’met- 
tons” dans notre stylo de l’encre 2, nous écrivons tranquillement, 
et les pixels déterminés seront colorés à l'encre 2 où 3 selon la cou- 
leur initiale de leur emplacement. 

En fait, nous avons sacrifié une des couleurs de notre palette pour 
avoir la possibilité d'écrire sur trois plans différents. 

Comment effacer un objet du premier plan qui cache partiellement 
un objet du second plan ? Ou effacer un objet du second plan sans 
laisser de trace sur le fond ? Aucun problème. Il nous suffit de faire 
passer le mode d’encre graphique à l’état 2 (mode AND) et de sélec- 
tionner la couleur de stylo appropriée, 2 (pour effacer le second plan) 
ou 1 (pour effacer le premier plan). Supposons que nous voulions 
effacer un objet du second plan. Nous utilisons l'encre 2 avec notre 
stylo et les résultats sont les suivants : 


ANCIENNE ENCRE NOUVELLE ENCRE RÉSULTAT 
1 (second plan) 2 0 (fond) 
3 (premier plan 2 2 (premier plan) 
cachant le 


second plan) 


Ainsi, le premier plan reste apparemment intact (bien qu’en réa- 
lité il soit passé de l'encre 3 à l'encre 2). De la même manière, si 
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nous demeurons dans l’état 2 de l'encre graphique et que nous utili- 
sons l'encre 1 avec notre stylo, nous pouvons effacer un objet du 


premier plan sans déranger le second plan : 
ANCIENNE ENCRE NOUVELLE ENCRE RÉSULTAT 
2 (premier plan) 1 0 (fond) 
3 (premier plan 1 1 (second plan) 


cachant le 
second plan) 


Le programme suivant est utile pour vérifier ce que nous venons 


de voir. 


10 
20 
25 
30 
3S 
40 


50 
60 
65 
70 
80 


90 


Remarquez que la transparence est également validée. 


MODE 1 

INK O,1:INK 1,24:INK 2,20:INK 3,6: PAPER O:PEN 1 

PRINT CHR$(22)+CHR$(1);: REM TRANSPARENCE 

INK 1,6:INK 2,24 

FOREPEN=2:MIDPEN=1 : FORERUB=1 : MIDRUB=2 

PRINT CHR$(23)+CHR$(3);: REM SELECTION ENCRE GRAPHIQUE ETAT 53 
(OU) POUR DESSIN DU FOND OÙ IMAGES SECOND PLAN OÙ TEXTE. 
PENCIL=FOREPEN: GOSUB 1000:REM DESSIN FOND 

PENCIL=MIDPEN: GOSUB 2000:REM DESSIN SECOND PLAN 

LOCATE 10,25:PRINT "Pressez une touche ‘"; 

Z$=INKEYS#:IF Z$="" THEN 70 

PRINT CHR$ (23) +CHR$ (2);: REM SELECTION ENCRE GRAPHIQUE ETAT 2 
(AND) POUR EFFACER FOND OÙ IMAGES SECOND PLAN OÙ TEXTE. 
PENCIL=MIDRUB:GOSUB 2000: REM EFFACEMENT IMAGE SECOND PLAN 


100 PRINT CHR$(22)+CHR$ (0) ;5: REM SUPPRIMER LA TRANSPARENCE 
110 PRINT CHR$ (23) +CHR$(0);: REM SELECTION ENCRE GRAPHIQUE 


ETAT NORMAL (FORCE) 


120 END 

1000 REM AFFICHAGE OU EFFACEMENT TEXTE 
1010 LOCATE 20,12 

1020 PEN PENCIL 

1030 PRINT " Ce texte est affiché sur le fond"; 
1999 RETURN 

2000 REM AFFICHAGE OÙ EFFACEMENT TRIANGLE 
2010 MOVE 100,100 

2020 DRAW 540,100,PENCIL 

2030 FOR J=100 TO 540 STEP 2 

2040 MOVE 320,360 

2050 DRAW J,100,PENCIL 

2080 NEXT J 

2999 RETURN 


Cette méthode est très puissante et vaut largement la peine d’être 
explorée ! 


ON SE MONTRE ET ON SE CACHE ! 


Le même genre de trucage est utilisé dans le programme suivant, 
qui nous montre comment deux images peuvent être dessinées au 
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même endroit, puis affichées alternativement pour donner l'impres- 
sion de disparaître et de réapparaître : 


10 MODE 1 : DEG 

20 GOSUB 1000 : REM DESSIN IMAGE 1 
SO GOSUB 2000 : REM DESSIN IMAGE 2 
40 GOSUB 6000 : REM DESSIN LEGENDE 
50 FOR SCREEN=1 TO 10 

60 GOSUB 3000 : REM AFFICHAGE IMAGE 1 
70 GOSUB 4000 : REM RETARD 

80 GOSUB 5000 : REM AFFICHAGE IMAGE 2 
90 GOSUB 4000 : REM RETARD 

100 NEXT SCREEN 

110 INK O,1 

120 INK 1,24 

130 INK 2,20 

140 INK 3,6 

150 PAPER O 

160 PEN 1 

170 PRINT CHR$ (23) +CHRS$ (O0) ; 

180 END 

1000 REM DESSIN IMAGE 1 

1010 PRINT CHRS (23) +CHRS (3) 3 

1020 FOR Z=1 TO 360 

1030 PLOT 320,200,1 

1040 DRAW 320+90#C0S (2) ,200+90#SIN(Z) ,1 
1050 NEXT z 

1999 RETURN 

2000 REM DESSIN IMAGE 2 

2010 PRINT CHR$ (23) +CHRS$ (3); 

2020 PLOT 100,100,2 

2030 DRAW 540,100,2 

2040 DRAW 320,360,2 

2050 DRAW 100,100,2 

2060 MOVE 320,360,2 

2999 RETURN 

3000 REM AFFICHAGE IMAGE 1 

3010 INK 0,2 

3020 INK 1,1 

3050 INK 2,2 

3040 INK 3,1 

3999 RETURN 

4000 REM RETARD 

4010 TM=TIME+300 

4020 WHILE TIME<TM 

4030 WEND 

4999 RETURN 

S000 REM AFFICHAGE IMAGE 2 

9010 INK O,4 

S020 INK 1,4 

5030 INK 2,0 

5040 INK 3,0 

5999 RETURN 

6000 REM AFFICHAGE LEGENDE 

6010 LOCATE 18,24 

6020 PRINT CHR$ (23) +CHR$ (0) ; 

6030 PEN 3 

6040 PRINT "Ceci est une légende‘; 
6999 RETURN 


Remarquez que le programme précédent modifie le fond ; mais 
ce n’est pas nécessaire, et dans la plupart des cas l'illusion sera plus 
grande si vous ne changez pas la couleur du fond. 


_ 99 - 


Remarquez aussi que le sous-titre est affiché avec les deux images. 

Les techniques précédentes ne sont que de petits exemples de tout 
ce qui peut être réalisé. Il est essentiel de comprendre ces méthodes 
si vous voulez travailler sur des dessins en trois dimensions, des soli- 
des en rotation, des dessins proportionnels, etc. 


FUTURS HORIZONS 


Avant d'abandonner ce sujet, considérons un moment le fait que 
nous avons utilisé le mode 1. Comment faire en mode 0, qui nous 
permet d'employer 16 encres ? Et si, au lieu de 3 plans, nous en avions 
4? Il nous faudrait : 

e fond; 

e troisième plan ; 

e deuxième plan; 

e deuxième plan cachant le troisième plan ; 

° premier plan; 

e premier plan cachant le troisième plan ; 

° premier plan cachant les deuxième et troisième plans. 


Cela réquisitionnerait 7 de nos encres. Nous pourrions utiliser les 
autres pour différentes couleurs de premier plan, ou de deuxième 
plan, où pour faire apparaître et disparaître des objets du premier 
plan, etc. Il vous faudra un crayon et du papier pour calculer les effets 
des opérations OÙ sur les diverses encres. Faites une colonne pour 
l'ancienne encre, une pour la nouvelle encre, et une pour le résul- 
tat… Vous verrez que de nombreuses combinaisons sont possibles. 
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12 
JEU N° 1 — LE HEFFALUMP AFFAMÉ 


JEUX SUR ORDINATEUR — ARCANE OU ARCADE ? 


Nous ne nous excusons pas de présenter des jeux ! Bien conçus, 
ils peuvent être très amusants et éducatifs. Les talents de program- 
mation nécessaires pour réaliser un jeu attrayant sont parmi les plus 
dignes, et bien des programmeurs les ont précisément acquis parce 
qu'ils étaient amenés à créer des jeux de plus en plus intéressants. 

Les personnes qui dénigrent les jeux d'arcade ne considèrent géné- 
ralement que le résultat final (souvent limité, il est vrai) et ne voient 
pas les efforts qui ont précédé leur création. La plupart des program- 
meurs passent très peu de temps à jouer avec le jeu qui est le pro- 
duit de leur travail ; ils sont trop occupés à concevoir leur prochaine 
œuvre. 


AVEC TOUTES NOS EXCUSES à À. A. MILNE 


Notre premier jeu présente un heffalump simple d'esprit dont la 
tanière se trouve dans le coin nord-est d’un bois. Il est inutile de vous 
rappeler que le heffalump a une mauvaise vue et qu'il fait surtout 
confiance à son odorat lorsqu'il chasse une proie. 

Dans le cas qui nous occupe, les victimes sont les membres d’un 
groupe d’explorateurs qui tentent, un par un, de traverser le bois en 
partant du coin nord-ouest pour atteindre le coin sud-est, où se trouve 
une rivière. L’aversion du heffalump pour l’eau est bien connue, et 
s'ils parviennent à plonger dans la rivière ils seront saufs et pourront 
siffloter un petit air de victoire méprisant pour exprimer leur 
soulagement. 

Le joueur contrôle le déplacement des explorateurs grâce aux tou- 
ches flèches. Lorsqu'ils sont envoyés dans une direction, les explo- 
rateurs courent droit devant eux dans une panique aveugle, rebon- 
dissant sur les arbres et regardant certainement d'un air effrayé par- 
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dessus leur épaule pour voir où se trouve le monstre maladroit. Appa- 
remment, ils ne cherchent pas la difficulté ; ils se déplacent presque 
toujours en ligne droite et paraissent apprécier les angles droits. 

Le monstre, qui se guide à l’odeur, a également tendance à se 
cogner aux arbres, mais comme il possède un cerveau encore plus 
petit que ses victimes potentielles, il ne cherche pas à contourner 
l'obstacle et pousse vainement dans la direction où il croit devoir aller. 
Cependant, à mesure que le jeu avance, sa vitesse augmente de plus 
en plus, soit parce qu'il est furieux de voir ses victimes s'échapper, 
soit parce que son goût du sang devient plus vif. Le dernier explora- 
teur qui tente la traversée a bien peu de chances de s'échapper, car 
la bête est prise d’une véritable frénésie sanguinaire.…. 

Vous avez dû maintenant vous rendre compte de la profondeur 
intellectuelle de ce jeu, et nous allons donc entamer sa program- 
mation. 


COMMENTAIRE SUR LE PROGRAMME 


Le programme principal est assez court puisqu'il n’occupe que les 
lignes 5 à 170. Les lignes 10 à 40 installent la scène, les lignes 50 à 
120 constituent le corps du programme et les lignes 130 à 170 for- 
ment la conclusion. 


9 REM HEFFALUMP AFFAME COPYRIGHT (C) 1984 JOHN BRAGA 
10 GOSUB 1000 : REM INITIALISATION 

20 GOSUB 2000 : REM DESSIN DE LA BORDURE 

30 GOSUB 2500 : REM DESSIN DE LA FORET 

40 GOSUB 3000 : REM PLACER LE HEFFA 

50 FOR EXPLO =1 TO NOMBREXPLO 

60 GOSUB 3400 : REM DEPART EXPLORATEUR 

70 GOSUB 3800 : REM DEPART HEFFA 

80 GOSUB 4000 : REM DEPLACEMENT EXPLORATEUR 
90 GOSUB 5000 : REM RETOUR POSITION DE DEPART 

120 NEXT EXPLO 

130 GOSUB 6000 : REM MESSAGE FINAL 

140 CLS 

150 PEN 1 

160 SPEED KEY 20,3 

170 END 


Si vous le désirez, la conclusion peut restaurer les couleurs 
originales. 


1000 REM INITIALISATION 

1010 EXPLO$ = CHR$(249) : BORDS$ = CHR$(143) 

1020 NOMBREXPLO = 10 

1040 ARBRES = CHR$(229):NOMBREDARBRES = 40 

1050 RIVIERES = CHR$(207):HEFFAS$ = CHR$(184) 

1060 LIGNEHAUT = 2:LIGNEBAS = 25:LIGNEGAUCHE = 1: 
LIGNEDROITE = 40 

1070 HEFFAINTERVALLE = 5 

1080 VRAI = — 1:FAUX = 0 

1090 ECHAPPE=O:CAPTURE =0 

1100 MODE 1 

1110 INK 0,9 

1120 PAPER 0 

1130 INK 1,24 

1140 PEN 1 

1150 INK 2,20 

1160 INK 3,6 

1170 SPEED KEY 4,2 

1200 MEMORY &AB77 

1210 RESTORE 1250 

1220 FOR J=1TO8 

1230 READ X:POKE HIMEM +J,X:NEXT J 

1240 DATA &CD,&60,&BB,&32,&7F,&AB,&C9,0 

1250 RDCHAR = &AB78 :CHREAD = &AB7F 

1999 RETURN 


En 1000 se trouve le sous-programme d'initialisation. Comme il n’est 
exécuté qu'une fois, il serait plus correct de l’inclure dans le pro- 
gramme principal, mais si l’on veut être méthodique, il vaut mieux 
placer ensemble toutes les lignes d'initialisation. 

Vous voudrez certainement tester de nombreuses variables de ce 
jeu, et ajouter vos propres améliorations. Il est possible de modifier 
la valeur de NOMBREXPLO (le nombre des explorateurs) à la ligne 
1020. 

La bordure du jeu est installée par la ligne 1060, mais vous pouvez 
jouer en mode 2, sur 80 colonnes, en modifiant cette ligne et la ligne 
1100. Bien entendu, il faudra alors changer les instructions INK et 
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PEN en tenant compte du fait que vous ne disposerez plus que de 
deux couleurs. 

La ligne 1070 nous aide à contrôler la rapidité des réactions de 
l’heffa. Modifiez-la en fonction de vos préférences et de votre dexté- 
rité. Ceux qui n'aiment pas perdre devraient donner à HEFFAINTER- 
VALLE une valeur minimale de 10... Voyez aussi la ligne 3805. 

L'instruction SPEED KEY utilise la caractéristique très utile de l’Ams- 
trad permettant de définir la vitesse à laquelle les touches réagissent 
à votre frappe. Le seul ennui, avec cette méthode, est que si vous 
exécutez le programme et que vous faites une erreur de frappe, vous 
vous rendrez compte que le clavier devient pratiquement incontrô- 
lable ! Pour éviter ce problème, entrez les instructions : 


2 ON ERROR GOTO 200 

3 ON BREAK GOSUB 150 
200 PRINT ‘ERREUR'"";ERR;"A LA LIGNE"";ERL 
210 GOTO 150 


Le sous-programme d'affichage de la bordure est très simple et ne 
requiert aucun commentaire : 


2000 REM DESSIN DU BORD 

2010 FOR J = LIGNEGAUCHE TO LIGNEDROITE 

2020 LOCATE J,LIGNEHAUT : PRINT BORD; 

2030 LOCATE J,LIGNEBAS : PRINT BORD; 

2040 NEXT J 

2050 FOR J = LIGNEHAUT TO LIGNEBAS 

2060 LOCATE LIGNEGAUCHE,)J : PRINT BORD$; 

2070 LOCATE LIGNEDROITE,J : PRINT BORD$; 

2080 NEXT J 

2100 RIVIEREXPOS = LIGNEDROIÏTE:RIVIEREYPOS = LIGNEBAS — 3 
2110 LOCATE RIVIEREXPOS,RIVIEREYPOS: PRINT RIVIERE; 
2499 RETURN 


Vient ensuite le sous-programme qui place les arbres. Vous pour- 
rez modifier le nombre d'arbres affiché. 


2500 REM DESSIN DE LA FORET 
2510 RANDOMIZE TIME 
2520 FOR J=1 TO NOMBREDARBRES 


2530 X% = RND(1)*LIGNEDROITE + LIGNEGAUCHE : IF 

X% > = LIGNEDROITE OR X% < = LIGNEGAUCHE THEN 2530 
2540 Y% = RND(1)*LIGNEBAS + LIGNEHAUT : IF 

Y% > =LIGNEBAS OR Y% < =LIGNEHAUT THEN 2540 
2550 LOCATE X%,Y% : PRINT ARBRES; 
2560 NEXT J 
2570 LOCATE RIVIEREXPOS -— 1,RIVIEREYPOS : PRINT ‘ ”: 
2999 RETURN 


L'instruction RANDOMIZE nous permet d'afficher chaque fois une 
forêt différente. 

Remarquez la ligne 2570 qui s'assure que les victimes disposent 
bien d’un chemin libre pour s'échapper ! 


3000 REM PLACER LE HEFFA 

3010 HEFFXPOS = LIGNEDROITE — 1 : HEFFYPOS = LIGNEHAUT +1 
3015 PEN 3 

3020 LOCATE HEFFXPOS,HEFFYPOS : PRINT HEFFA; 

3399 RETURN 


Un heffa est dessiné en rouge vif dans le coin supérieur droit de 
l'écran. 


3400 REM DEPART EXPLORATEUR 

3405 PEN 2 

3410 LOCATE LIGNEGAUCHE + 1,LIGNEHAUT +1:PRINT EXPLOf$; 
3420 EXPLOXPOS = LIGNEGAUCHE + 1:EXPLOYPOS = LIGNEHAUT +1 
3430 CHASSE = VRAI: TROUVE = FAUX 

3799 RETURN 


Remarquez que CHASSE et TROUVE sont considérées comme des 
variables booléennes, assez familières à ceux qui programment en 
Pascal. 


3800 REM DEPART HEFFA 

3805 J = HEFFAINTERVALLE + (NOMBREXPLO — EXPLO)*2 
3810 EVERY J GOSUB 7000 

3999 RETURN 
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7000 REM TACHE SEPAREE POUR DEPLACER LE HEFFA VERS 
L'EXPLORATEUR 
7005 X = HEFFXPOS:Y = HEFFYPOS 
7010 IF HEFFXPOS > EXPLOXPOS THEN X =HEFFXPOS — 1 
ELSE IF HEFFXPOS < EXPLOXPOS THEN X = HEFFXPOS +1 
7020 IF HEFFYPOS > EXPLOYPOS THEN Y =HEFFYPOS — 1 
ELSE IF HEFFYPOS < EXPLOYPOS THEN Y =HEFFYPOS +1 
7025 LOCATE X,Y:CALL RDCHAR 
7027 IF PEEK(CHREAD) = 32 THEN 7030 
7028 IF PEEK(CHREAD)ASC(EXPLO$) THEN CHASSE = FAUX: 
TROUVE = VRAI:CAPTURE = CAPTURE +1 ELSE 7999 
7030 LOCATE HEFFXPOS,HEFFYPOS: PRINT ‘ ‘’;: PEN 3: 
LOCATE X,Y:PRINT HEFFA$;: HEFFXPOS = X:HEFFYPOS = Y 
7032 CALL &BD19 
7999 RETURN 


Le déplacement du heffa est effectué par une sous-tâche séparée 
qui est initialisée par le sous-programme 3800. La ligne 3805 est cru- 
ciale pour déterminer la rapidité des réactions du heffa, et vous pou- 
vez ralentir le monstre en trichant un peu. 


4000 REM MOUVEMENT DE L'EXPLORATEUR 
4005 IF NOT CHASSE THEN 4999 

4007 DI 

4010 Z$ =INKEY$ : IF Z$="" ‘’ THEN 4800 
4020 Z = ASC(Z$) 

4030 IF Z < 240 OR Z > 243 THEN 4010 
4040 Z=Z-239 

4050 ON Z GOSUB 4100,4200,4300,4400 
4100 REM HAUT 

4110 XDIR =0 : YDIR= -1 

4120 GOTO 4800 

4200 REM BAS 

4210 XDIR =0 : YDIR=1 

4220 GOTO 4800 

4300 REM GAUCHE 

4310 YDIR =0 : XDIR = -1 

4320 GOTO 4800 

4400 REM DROITE 

4410 YDIR =0 : XDIR=1 
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4800 X = EXPLOXPOS + XDIR : Y = EXPLOYPOS + YDIR 

4805 LOCATE X,Y: CALL RDCHAR : CH$ = CHRS(PEEK(CHREAD)): 
IF CH$=RIVIERES THEN CHASSE = FAUX : GOTO 4900 

4810 IF CH$=HEFFA$ THEN CHASSE = FAUX:TROUVE = VRAI: 
CAPTURE = CAPTURE + 1:LOCATE EXPLOXPOS,EXPLOYPOS: 


PRINT ” ’’;: GOTO 4930 

4820 IF CH$ < >" THEN XDIR =0 — XDIR : YDIR =0 — YDIR: 
GOTO 4930 

4900 LOCATE EXPLOXPOS,EXPLOYPOS:PRINT ‘’ ‘’;: LOCATE X,Y: 
PEN 2: PRINT EXPLO$;:EXPLOXPOS = X: EXPLOYPOS = Y 

4930 EI 


4940 GOTO 4005 
4999 RETURN 


Le sous-programme 4000 constitue la boucle interne du programme 
principal. L'ordinateur exécute ce sous-programme jusqu'au moment 
où l'explorateur est capturé ou parvient à s'échapper, mais bien 
entendu le sous-programme est régulièrement interrompu par la sous- 
tâche qui déplace le heffa. 

Si une touche est pressée, elle est analysée. Seules les touches flè- 
ches sont valables, et toutes les autres touches sont ignorées. De cette 
manière, il est assez facile d'adapter ce jeu pour l'utiliser avec un 
joystick. 

Les lignes 4100 à 4410 déterminent la direction. Une fois détermi- 
née, elle demeure inchangée. Vous pouvez modifier le programme 
pour permettre à l'explorateur de tourner à 45 degrés plutôt qu’à 90 
degrés. Cela augmenterait son agilité lorsqu'il est sur le point d’être 
capturé. 

La ligne 4800 place la position souhaitée dans les variables X et Y. 
La position actuelle est maintenue à EXPLOXPOS, EXPLOYPOS. 
Ensuite, on appelle un sous-programme en langage d'assemblage qui 
a été chargé durant la phase d’initialisation. Ce sous-programme lit 
le caractère qui se trouve à la position souhaitée pour éviter les colli- 
sions. Si le caractère est RIVIERES ou HEFFAS$, la chasse est terminée 
— du moins pour ce joueur. Si le caractère n’est pas un espace, il 
doit s'agir d’un arbre ou de la bordure, et la direction est alors inversée. 

Remarquez les instructions DI et El, qui sont essentielles si vous 
ne voulez pas que des explorateurs rouges apparaissent n'importe 
où. (Cela peut arriver si l'interruption de la routine de déplacement 
du heffa se produit après que vous ayez placé le curseur en 
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EXPLOXPOS,EXPLOYPOS, mais avant que vous ayez pu afficher 
l'explorateur en bleu ; quand vous retournez dans le sous-programme, 
la position a été modifiée et le stylo est rouge !) 

Le sous-programme 5000 remet tout en ordre. 


5000 REM REMISE EN ORDRE 

5005 DI 

5007 PEN 1 

5010 LOCATE RIVIEREXPOS,RIVIEREYPOS : PRINT RIVIERES$; 

5015 EXPLOXPOS = LIGNEDROITE — 1:EXPLOYPOS = LIGNEHAUT +1 

5017 LOCATE 1,LIGNEHAUT — 1 : PRINT ‘‘ECHAPPES:""; 
EXPLO-CAPTURE;".  CAPTURES:";CAPTURE 

5020 El 

5030 IF CAPTURE THEN GOSUB 10000 ELSE GOSUB 9000 

5999 RETURN 


La rivière est replacée au bon endroit, pour plus de sûreté. Une 
nouvelle position est préparée pour afficher le nouvel explorateur, 
s'il en reste. Ensuite, le score est affiché sur la ligne supérieure. Enfin, 
le programme choisit la mélodie adaptée au résultat. 


9000 REM CHANT DE VICTOIRE ! 

9010 RSTORE 9800 

9020 READ T 

9030 IF T = —1 THEN 9900 

9040 SOUND 1,7T,20,5 

9050 GOTO 9020 

9800 DATA 80,60,47,80,60,47,80,60,47 

9810 DATA —-1 

9900 WHILE SQ{1) > 127 : WEND 

9999 RETURN 

10000 REM CHANT FUNEBRE ! 

10010 RESTORE 10800 

10020 READ T,L 

10030 IF T= —-1 THEN 10900 

10040 SOUND 1,T,L*40,5 

10045 SOUND 1,0,5,0 

10050 GOTO 10020 

10800 DATA 478,2,478,1.5,478,.5,478,2,402,1.5,426,.5 
426,1.5,478,.5,478,1.5,536,.5,478,2 
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10810 DATA —1,-1 
10900 WHILE SQ{1) > 127:WEND 
10999 RETURN 


6000 REM MESSAGE FINAL 
6010 J = REMAIN(0) 
6999 RETURN 


Ce sous-programme met fin aux activités du heffalump en suppri- 


mant la sous-tâche. À vous de programmer, si vous le voulez, le mes- 
sage final... 
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13 
JEU N° 2 — FANTÔMES EN BOUTEILLE ! 


Note de l'auteur : Je ne peux pas m'attribuer la conception de ce 
jeu, qui a été imaginé par mon fils, âgé de dix ans. Je n'ai pas cher- 
ché à savoir d'où il avait pu tirer une telle idée. 


Le programme et le commentaire sont donnés dans ce chapitre, 
pour que vous puissiez suivre la logique du jeu et (qui sait ?) l’amé- 
liorer encore. 


SCÉNARIO 


Le ‘’scénario’’ est simple. Un héros (vous, bien sûr) voit le jour dans 
le coin supérieur droit d’un écran assez désertique. Les seuls objets 
qui s’y trouvent sont une bouteille (dans le coin inférieur gauche) 
et une tombe (en bas à droite). 

Soudain, un fantôme à l'air mauvais émerge de la bouteille en pous- 
sant un gémissement, bientôt suivi à intervalles réguliers par plusieurs 
de ses semblables. Ils paraissent décidés à faire votre connaissance 
et se dirigent vers vous d’une manière assez déconcertante en for- 
mant une hideuse caravane. 

Votre unique chance de survie consiste : 


e à reboucher la bouteille avant qu'un trop grand nombre de fantô- 
mes se soient échappés : 


e en jouant le rôle d’appât, à les entraîner dans la tombe (en pas- 
sant par la porte supérieure), à vous échapper par la porte infé- 
rieure, que vous devrez refermer derrière vous avec une pierre, 
puis à faire le tour de la tombe pour les enfermer en bloquant la 
porte supérieure avec une autre pierre. 


Si vous échouez, vous êtes voué à fuir éternellement, pourchassé 
par les fantômes. Une autre solution, tout aussi déplaisante, consiste 
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à vous enfermer involontairement dans la tombe, où vous demeure- 
rez à tout jamais tandis que les fantômes continueront leurs gémis- 
sements à l'extérieur. 


Note de l’auteur : Inutile de m'écrire pour me faire remarquer que 
des fantômes qui se respectent ne sont pas arrêtés par une simple 
pierre. L'idée n’est pas de moi, je me suis contenté de concevoir le 
programme... 


COMMENT JOUER ? 


Quand vous aurez chargé le programme de la manière habituelle, 
utilisez les quatre touches flèches pour vous déplacer sur l'écran, et 
la touche COPY pour bloquer l'entrée et la sortie de la tombe. Cette 
dernière touche peut être pressée lorsque vous vous trouvez exacte- 
ment devant l'entrée ou la sortie — sinon, elle ne produit pas le moin- 
dre effet. 

Notez bien que vous devez absolument faire entrer les fantômes 
par l'issue supérieure, et donc bloquer d’abord l'issue inférieure ! 
Essayez le contraire et vous verrez ce que nous voulons dire... 

Pour boucher la bouteille (la première chose à faire si vous possé- 
dez la moindre parcelle de bon sens), il vous suffit de vous placer 
devant le goulot. Il n’est pas nécessaire de presser une touche. 


COMMENTAIRE SUR LE PROGRAMME 


Le programme utilise diverses techniques semblables à celles que 
nous avons employées dans le premier jeu, mais il y a deux sous- 
tâches indépendantes et une routine en assembleur beaucoup plus 
longue. Elle sert à contrôler la vitesse. Si l’on utilisait uniquement le 
BASIC, il serait un peu long de déterminer les mouvements des dix 
spectres. L'emploi judicieux de l’assembleur nous fournit une réponse 
satisfaisante à ce problème. 

Nous étudierons le moyen de créer un sous-programme en assem- 
bleur dans le Chapitre 16. 

Les lignes 7 à 50 s'occupent d'installer le décor. Des instructions 
GOSUB envoient en 1000 (initialisation), en 2000 (dessin de la bou- 
teille et de la tombe), en 3000 (affichage du héros) ; une sous-tâche 
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séparée (4000) est exécutée toutes les 2 500 ms et fera chaque fois 
émerger un fantôme, jusqu’à un maximum de dix ou bien jusqu’à 
ce que vous ayez réussi à boucher la bouteille. 


7 REM COPYRIGHT (C) 1984 JOHN BRAGA 
10 REM FANTOMES EN BOUTEILLE! 

20 GOSUB 1000 

30 GOSUB 2000 

40 GOSUB 3000 

50 EVERY 50 GOSUB 4000 


Le jeu proprement dit est exécuté durant un unique appel au sous- 
programme 5000, lancé par la ligne 60. 1l déplace simplement le héros, 
car l'apparition des fantômes et leurs mouvements sont contrôlés par 
des sous-tâches séparées ; c'est une méthode simple (avec cette ver- 
sion du BASIC !) et qui vous décharge des problèmes de synchro- 
nisation. 


60 GOSUB 5000 


Les routines finales se trouvent aux lignes 70 à 300. Les mouve- 
ments des spectres (ou leurs apparitions) sont interrompus et le pro- 
gramme calcule leurs positions pour voir s'ils se trouvent à l’intérieur 
ou à l'extérieur de la tombe. S'ils se trouvent tous à l’intérieur, un 
message de remerciement est affiché, mais si certains sont encore 
à l'extérieur, c’est un message de condamnation. Si un fantôme vous 
attrape, le message ‘VOUS ETES PRIS!’ s’affichera. 


70 X = REMAIN(0):Y = REMAIN(1) 
80 IF NOT FREE THEN 200 
100 FOR J=1 TO NUMSPECTRE 
110 GX = PEEK(GXSTORE +2+J — 2):GY = PEEK(GXSTORE +2+*J — 1) 
120 IF GX < 31 OR GX > 33 OR GY < 16 OR GY > 20 
THEN DOOMED = TRUE 
130 NEXT J 
140 IF DOOMED THEN LOCATE 15,1:PRINT ‘VOUS ETES 
CONDAMNE A FUIR ETERNELLEMENTIII"":GOTO 210 
150 LOCATE 20,1: PRINT ‘’L'HUMANITE ENTIERE VOUS REMERCIE!" 
160 GOTO 210 
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210 FOR J=1 TO 4000: NEXT J 
220 CLS 

240 SPEED KEY 10,10 

250 PEN 1 

300 END 


Le sous-programme d'initialisation débutant en 1000 réserve d’abord 
une partie de la mémoire pour la routine en assembleur, et la charge 
ensuite à partir de l'adresse 7000h. Le chargement s'effectue en lisant 
les instructions DATA et en exécutant des instructions POKE plutôt 
qu’en chargeant un fichier binaire conservé sur cassette. C’est un petit 
avantage supplémentaire. 


De plus, au lieu de taper ‘’manuellement’’ toutes les instructions 
DATA, ce qui est une tâche assez longue et qui peut entraîner des 
erreurs, nous avons utilisé ZEN pour afficher en haut de l’écran le 
contenu de la zone où est stocké le code objet, puis nous sommes 
passés en BASIC et avons utilisé la commande COPY pour créer les 
instructions DATA l’une après l’autre, chacune contenant 8 octets. 
Une fois les données ‘‘’capturées’’ de cette manière, nous avons cor- 
rigé les lignes pour ajouter les virgules et les ‘’&’’ entre les valeurs 
des octets. 


1000 REM INITIALISATION 

1005 TXTRD = &7000: RDCHAR = &7007:MVGHOST = &7008: 
DONEFLAG = &70FE:NUMGHOSTS = &70FF:MXSTORE = 
&7100:GXSTORE = &7102 

1010 CLS 

1015 MEMORY &6FFF 

1017 SPEED KEY 8,3 

1020 BOTTLECOLOUR = 1:MANCOLOUR = 2:GHOSTCOLOUR = 3 

1030 MANS = CHR$(249): GHOST$ = CHR$(225):EDGE$ = CHR$(143) 

1040 TRUE = —-1:FALSE =0 

1050 STOPPERED = FALSE 

1060 INK 3,6,5 

1070 FREE = TRUE:PLAYING = TRUE: TOMBSTONES = 0: 
DOOMED = FALSE 

1080 STOPPER$ = CHR$(210) 

1085 ENT —1,10,10,3 
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1090 POKE NUMBGHOSTS,O: POKE DONEFLAG,FALSE 
1100 GOSUB 7000: CLS 

1500 RESTORE 1900 

1510 FOR J=0 TO 2000 

1520 READ X:1F X= —1 THEN 1590 

1530 POKE &7000 + J,X 

1580 NEXT J 

1590 REM 

1900 DATA &CD,&60,&BB,8&32,&07,&70,&C9,0 
1910 DATA &AF,&32,&FE,&70,8&3A,&FF,&70,&32 
1911 DATA &FD,&70,8&2A,&00,&71,&E5,&C1,&21 
1912 DATA &2,&71,8&C5,8&56,8&23,&H5E,&23,8&E5 
1913 DATA &D5,&79,&BA,&28,&06,8&38,&3,&14 
1914 DATA &18,1,8&15,&78,&BB,&28,6,&38 

1915 DATA 3,&1C,&18,1,&1D,&EB,&E5,&CD 

1916 DATA &75,&BB,&CD,8&60,&BB,&D1,&E1,&D5 
1917 DATA &FE,&F9,&20,&A,83E,1,&32,&FE 

1918 DATA &70,8&32,&FD,&76,&18,4,&FE,&20 
1919 DATA &20,&1C,&CD,&75,&BB,&3E,&20,&CD 
1920 DATA &5D,&BB,&E1,&E5,&CD,&75,&BB,&3E 
1921 DATA &E1,&CD,&5D,&BB,&D1,&E1,&2B,&2B 
1922 DATA &72,8&23,8&73,8&23,&E5,&D5,8&3A,&FD 
1923 DATA &70,&3D,&32,&FD,&70,&D1,&E1,&C1 
1924 DATA &20,&A0,&C9, — 1 

RETURN 


Les instructions sont affichées par le sous-programme 7000. 


7000 REM INSTRUCTIONS 

7010 LOCATE 10,1:PRINT ‘’FANTOMES EN BOUTEILLE!"" 
7020 PRINT 

7030 PRINT ‘Vous êtes poursuivi par des fantômes 
7040 PRINT ‘qui s'échappent d'une bouteille.” 

7050 PRINT ‘Vous devez d'abord courir jusqu’à la ”” 
7060 PRINT ‘bouteille (grâce aux touches fléchées)" 
7070 PRINT ‘et la boucher en touchant le goulot. ”” 
7080 PRINT ‘’Cela empêche l'apparition d'autres ‘” 

7090 PRINT ‘’fantômes. Vous devez alors entraîner les” 
7100 PRINT ‘spectres gémissants vers la TOMBE et les” 
7110 PRINT ‘enfermer pour toujours! N'oubliez pas de” 
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7120 PRINT ‘fermer d'abord l'issue INFERIEURE (quand 
7130 PRINT ‘les fantômes sont entrés). Si vous y ” 

7140 PRINT ‘‘parvenez, courez alors jusqu'à la porte” 

7150 PRINT ‘’SUPERIEURE et fermez-la derrière eux. 

7160 PRINT 

7170 PRINT ‘‘Pour fermer une issue, appuyez sur la ” 

7180 PRINT ‘touche COPY lorsque vous vous trouvez” 
7190 PRINT ‘’exactement devant la porte.” : PRINT 

7200 INPUT ‘“‘Pressez ENTER pour commencer à jouer...”",2$ 
7999 RETURN 


Le sous-programme permettant de dessiner la bouteille et la tombe 
ne mérite pas de commentaire, sauf pour préciser que si vous dési- 
rez placer ces objets à un autre endroit, vous devrez également effec- 
tuer des modifications dans le sous-programme qui vérifie si tous les 
fantômes sont enfermés dans la tombe, et dans le sous-programme 
qui vérifie si le héros a bouché la bouteille. 


2000 REM DESSIN DE LA BOUTEILLE ET DE LA TOMBE 
2010 LOCATE 1,21 

2015 PEN BOTTLECOLOUR 

2020 PRINT CHR$(209); EDGE$;CHR$(211) 

2030 CHR$(214); EDGE$;CHR$(215) 

2040 PRINT STRING$(3,EDGE$) 

2050 PRINT STRING$(3,EDGE$) 

2100 LOCATE 30,15 

2110 PRINT EDGES;EDGE$;"" ‘’;EDGE$;EDGES$ 

2120 FOR J=1TO65 

2130 LOCATE 30,J + 15:PRINT EDGE$;" ‘’EDGES$ 

2140 NEXT J 

2150 LOCATE 30,21:PRINT STRING$(3,EDGES$);"" ‘’;EDGE$ 
2999 RETURN 


Le sous-programme 3000, ‘‘départ du héros’”, enregistre la posi- 
tion MX,MY et MXSTORE,MYSTORE pour la passer au sous- 
programme en assembleur. Ensuite, il interdit toute interruption afin 
de pouvoir tranquillement dessiner le héros sur l'écran (cette inter- 
diction peut paraître superflue puisque les sous-tâches n'ont pas 
encore été créées. Disons qu'il s’agit d'une précaution en vue de 
modifications ultérieures!). 
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3000 REM DEPART DU HEROS 

3010 MX = 40 : MY =1 

3020 NMX = MX : NMY = MY 

3030 POKE MXSTORE,MX : POKE MXSTORE +1,MY 

3040 DI : LOCATE MX,MY : PEN MANCOLOUR : PRINT MANS; : El 
3999 RETURN 


En 4000 se trouve une sous-tâche qui est appelée toutes les 2 500 
ms : elle vérifie si la bouteille est bouchée ou si les dix fantômes ont 
déjà été lâchés sur le pauvre monde. Si c'est le cas, la sous-tâche 
annule poliment toutes ses futures prestations grâce à une instruc- 
tion REMAIN et abandonne le contrôle de l’exécution sans plus 
attendre. 

S'il s'avère que son travail n’est pas terminé, elle libère un fantôme. 
Remarquez la technique simple qui consiste à dessiner une ligne, puis 
à la faire disparaître en la redessinant dans la couleur du fond. 


4000 REM SORTIE D'UN FANTOME 

4005 NUMSPECTRE = PEEK(NUMGHOSTS) 

4010 IF STOPPERED OR (NUMSPECTRE = 10) THEN J = REMAIN(0): 
GOTO 4999 

4020 DI : PEN GHOSTCOLOUR : PLOT 20,82,GHOSTCOLOUR: 
DRAW 40,360,GHOSTCOLOUR : LOCATE 65,1 : 
PRINT GHOST$ :PLOT 20,82,0 : DRAW 40,360,0 : El 

4030 SOUND 1,0,20,7 

4040 POKE NUMGHOSTS,NUMSPECTRE + 1:POKE GXSTORE +2 
*NUMSPECTRE,5:POKE GXSTORE + 1 +2*NUMSPECTRE,1 

4050 EVERY 30,1 GOSUB 6000 

4999 RETURN 


Le déroulement du jeu se fait par itération dans le sous-programme 
5000 tandis que les deux sous-tâches agissent de manière asynchrone 
et indépendante. Seules les quatre touches flèches et la touche COPY 
sont vérifiées ; les autres touches sont ignorées. Le sous-programme 
s'achève lorsque les deux pierres tombales ont été placées devant 
les issues, ou lorsque l'indicateur FREE est placé (extérieurement) à 
l’état faux. 


5000 REM MOUVEMENT DU HEROS 
5010 IF NOT (FREE AND PLAYING) THEN 5999 


5015 Z$=INKEYS:IF Z$ =" THEN 5010 

5020 Z = ASC(Z$):IF Z=224 THEN Z = 244 

5030 IF Z < 240 OR Z > 244 THEN 5010 ELSE Z=2Z — 239 

5040 NMX = MX:NMY = MY 

5050 ON Z GOTO 5100,5200,5300,5400, 5500 

5100 REM *** HAUT 

5110 IF MY > 1 THEN NMY =MY—1 

5120 GOTO 5600 

5200 REM +++ BAS 

5210 IF MY < 25 THEN NMY = MY +1 

5220 GOTO 5600 

5300 REM ***x GAUCHE 

5310 IF MX > 1 THEN NMX=MX-1 

5320 GOTO 5600 

5400 REM **+x DROITE 

5410 IF MX < 40 THEN NMX = MX +1 

5420 GOTO 5600 

5500 REM *** TOUCHE COPY 

5510 IF MX=32 AND MY = 15 THEN DI:LOCATE MX,MY: PEN 
BOTTLECOLOUR:PRINT EDGE$;:NMX = 32:NMY = 14: 
GOTO 5530 

5520 IF MX=33 AND MY =21 THEN DI:LOCATE MX,MY: PEN 
BOTTLECOLOUR:PRINT EDGE$;:NMX = 33:NMY = 22: 
GOTO 5530 

5525 GOTO 5540 

5530 TOMBSTONES = TOMBSTONES + 1:1F TOMBSTONES = 2 THEN 
PLAYING = FALSE 

5540 GOTO 5705 

5600 REM *x** TEST 

5610 DI:LOCATE NMX,NMY:CALL TXTRD : IF 
PEEK(RDCHAR) < > 32 THEN EI:GOTO 5720 

5700 DI:LOCATE MX,MY:PRINT ” ”; 

5705 LOCATE NMX,NMY:PEN MANCOLOUR:PRINT MAN$;: 
MX = NMX : MY =NMY : El 

5710 POKE MXSTORE,MX: POKE MXSTORE +1,MY 

5712 1F MX=2 AND MY =20 THEN DI : STOPPERED = TRUE: 
LOCATE 1,20: PEN BOTTLECOLOUR:PRINT STRINGS( 
3,STOPPER$);:NMX = 4: NMY = 20:GOTO 5705 

5720 GOTO 5010 

5999 RETURN 
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Le sous-programme 6000 est une sous-tâche indépendante appe- 
lée par le sous-programme 4000 (qui fait apparaître les fantômes). 
Il possède la priorité la plus élevée et les instructions DI/EI sont donc 
parfaitement superflues. 

Sa fonction principale est d'appeler le sous-programme en langage 
d'assemblage qui déplace les fantômes (voir Chapitre 16). 

Il produit également le gémissement des fantômes, en utilisant une 
enveloppe de ton définie durant la routine d’initialisation. 


6000 REM MOUVEMENT DES FANTOMES 

6010 DI 

6020 PEN GHOSTCOLOUR 

6030 CALL MVGHOST 

6040 IF PEEK(DONEFLAG)=1 THEN FREE = FALSE : 
X = REMAIN(0O) : Y = REMAIN(1) 

6050 SOUND, 1,350,40,4,0,1 

6990 EI 

6999 RETURN 


Bonne chasse aux fantômes ! 


PROGRAMMATION 
EN 
LANGAGE D'ASSEMBLAGE 






Ci partie donne des informations sur la manière de programmer 
l’Amstrad en langage d'assemblage ; elle montre comment des sous- 
programmes peuvent ainsi améliorer les programmes écrits en BASIC. 


14 
L'ENVIRONNEMENT ZEN 


Aussi utile que soit le BASIC, il arrive un moment où nous désirons 
quelque chose de plus, et nous nous tournons vers l’assembleur. Pour 
diverses raisons possibles : 


e La nécessité d’une plus grande rapidité : les programmes en assem- 
bleur peuvent opérer beaucoup plus vite que les programmes en 
BASIC. 


e Le besoin d'économiser de la mémoire : les programmes en assem- 
bleur sont beaucoup plus concis que leurs équivalents en BASIC. 


e Le besoin d'accéder à des possibilités du système que le BASIC 
ne peut pas utiliser : toutes les caractéristiques du système sont 
accessibles au programmeur en assembleur ; il n’est limité que par 
ses propres connaissances ! 


Bien entendu, dans sa conception, l’ Amstrad est une machine qui 
‘’fonctionne’”’ en BASIC, puisque le BASIC est disponible en ROM 
et que la machine charge le langage BASIC dès qu’elle est mise en 
marche. Mais elle n’est pas limitée au BASIC ! 


ZEN 


Kuma Computers propose, pour l’Amstrad, un assembleur baptisé 
simplement ZEN qui permet à l'utilisateur : 


e d'écrire des programmes complets en assembleur, qui peuvent être 
sauvegardés sur cassette et rechargés ultérieurement pour être exé- 
cutés indépendamment du BASIC. 


e d'écrire des programmes qui seront conçus comme des sous- 
programmes destinés à être appelés par le BASIC et qui pourront 


donc ‘’côtoyer”’ les programmes en BASIC. 
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De plus, ZEN contient un désassembleur, qui peut être utilisé pour 
éclairer les mystères du système d'exploitation de l’Amstrad si on le 
désire. 

Des versions de ZEN ont été conçues pour d’autres systèmes, 
comme les ordinateurs Sharp, Newbrain, Epson et MSX ; il s'agit donc 
d'un produit qui a largement fait ses preuves et qui peut être recom- 
mandé à tous les possesseurs d’Amstrad familiarisés avec le langage 
d'assemblage, ou bien à ceux qui souhaitent l’apprendre. Le manuel 
fourni contient un listing complet du code source de ZEN ; l'expert 
peut modifier le produit selon ses besoins et l'étudiant a la possibi- 
lité d'examiner un grand programme d'assemblage écrit pour le micro- 
processeur Z80. 


COMMENT CHARGER ZEN 


ZEN est disponible sur cassette. Lorsqu'il est en mémoire, il réside 
à l'adresse 4000h (adresse de départ), c'est-à-dire en plein milieu de 
la zone qui est habituellement réservée au BASIC, et c’est pourquoi 
il est nécessaire d'entrer au préalable une instruction MEMORY pour 
limiter à 3FFFh (ou 16383) la limite supérieure de la zone du BASIC. 
ZEN peut alors être chargé par une simple commande LOAD ‘ ‘'et 
l’on pourra ensuite y accéder en entrant : 


CALL 16384 


Il affichera alors son indicatif : 


ZEN > 


En vitesse lente, le chargement dure environ une minute. 


TOPOGRAPHIE DE LA MÉMOIRE 


A ce moment-là, l'utilisateur souhaite généralement entrer du code 
source — soit en le tapant, soit en le chargeant à partir d’une cas- 
sette — afin de le modifier ou de l’étendre, puis de l'assembler. 
L'adresse par défaut du code source est 6000h, mais elle peut facile- 
ment être changée. 

ZEN travaille en mémoire. Si l’on désire exécuter le programme 
réalisé, et c'est normalement le cas, il faut réserver de la place pour 
le code objet lorsque ZEN assemble le programme source. Cette zone 
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du code objet doit en général se trouver au-dessus de celle du code 
source, disons à l'adresse 8000h. 

ZEN a besoin d’une zone de travail pour installer la table des symbo- 
les contenant tous les noms des variables de la source ; cette table 
commence juste au-dessus de ZEN lui-même, à l'adresse 593Ch, et 
s'étend jusqu'au début du code source, situé en 6000h. Si cette zone 
se révèle insuffisante, l'adresse de départ du code source peut être 
modifiée. 

La seule autre zone de la mémoire qui doit être mentionnée est 
celle constituée par les 4K nécessaires à la lecture et à l'écriture des 
cassettes. Quand vous entrez l'instruction de chargement (LOAD) de 
ZEN, le BASIC fait son tour de passe-passe habituel et réduit HIMEM 
de 4096 octets, lui donnant dans ce cas la valeur 2FFFh. ZEN s'attend 
donc à trouver un tampon (buffer) de lecture en 3000h et un tam- 
pon d'écriture en 3800h. Si vous voulez les placer ailleurs dans la 
mémoire, ZEN en sera très satisfait, à condition bien sûr que vous 
l'informiez de la modification des deux pointeurs. 

La position du pointeur est contrôlée par l'utilisateur ; il est donc 
parfaitement possible d’avoir plus d'un programme source en 
mémoire — chaque programme source étant terminé par une ins- 
truction END — et d'assembler alternativement l’un ou l'autre. 

En résumé, voici la topographie normale de la mémoire lorsque 
ZEN est chargé. Comparez cette figure avec celle qui est présentée 
dans le Chapitre 1. 


TOPOGRAPHIE DE LA MÉMOIRE LORSQUE ZEN EST CHARGÉ 


Interpréteur € 
BASIC 






FFFF 





Mémoire écran 


Utilisé par 
le système 


Code objet 











C000 
AC00 


8000 


6000 
593C 
4000 
3000 
0040 


0000 


Table des symboles 





ZEN 










Système 
d'exploitation 


€ 





Utilisé par 
le système 


Il faut bien préciser que cette topographie est celle d’une utilisa- 
tion normale, mais qu’elle n’est pas absolue. Des programmes BASIC 
plus importants peuvent y trouver leur place si l’on repousse les tam- 
pons de cassette au-dessus de la zone occupée par ZEN, et les limi- 
tes des zones réservées au code source et au code objet peuvent être 
modifiées par l'utilisateur. 

En général, la taille de la mémoire dédiée au BASIC ne constitue 
pas un problème. Il existe sur le marché bien d’autres systèmes qui 
seraient heureux d’en avoir autant ! Si vous voyez que votre pro- 
gramme BASIC est trop grand pour coexister en mémoire avec ZEN, 
n'oubliez pas que, lorsque vous avez testé votre routine en assem- 
bleur grâce à un minuscule programme BASIC, le programme objet 
peut être chargé sans que la présence de ZEN ou du code source 
soit nécessaire, et il pourra être appelé directement par votre pro- 
gramme BASIC — dans ce cas, la valeur de HIMEM sera probable- 
ment égale ou supérieure à 7FFFh. 


LES COMMANDES DE ZEN 


Après avoir chargé ZEN en mémoire, comme indiqué précédem- 
ment, de quelles commandes disposez-vous ? Elles sont toutes repré- 
sentées par une seule lettre, certaines étant suivies d’un paramètre. 


A  Assemble O Out 

B Bye (Retour au BASIC) P Print 

C Copy Q  Query 

D Down R Read 

E Enter S Sort 

F Fill T Target 

G  Goto U Up 

H  Howbig W.__ Write 

| In X _eXamine 

K Kill Z Zap 

L  Locate c Catalogue 
M  Modify d Disassemble 
N New u  Unscramble 


Vous pouvez constater que ZEN nous offre les bases d’un contexte 
de développement complet. Toutes les opérations d'assemblage sont 
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faites directement en mémoire, et le code objet est aussitôt disponi- 
ble, en cas de besoin. 

Les programmes source sont entrés grâce à la commande E, assem- 
blés par la commande A, et peuvent être effacés par la commande 
Kill (K). Quand l'assemblage est ‘’propre”’, ils peuvent être exécutés 
par une commande Goto (G). Un point d'arrêt peut être déterminé 
pour que l'exécution se fasse par étapes, en affichant l’état des regis- 
tres et de la mémoire à chaque halte. 

ZEN ne nous offre pas un éditeur d'écran complet pour entrer le 
code source, mais des commandes nous permettent d'afficher une 
ligne ou plusieurs lignes (P), de localiser une chaîne de caractères 
spécifique (L), de nous rendre à une ligne particulière (T), de faire 
monter où descendre sur l'écran un certain nombre de lignes (U et 
D), ou d'effacer une ou plusieurs lignes (7). 

Les données peuvent être créées par Fill (F), Copy (C) ou Modify 
(M) ; elles peuvent être examinées par Query (Q) ou X (qui affiche 
l’état des registres). 

Vous pouvez sauvegarder des fichiers source ou des fichiers objet 
grâce à la commande W, et les relire avec la commande R. La liste 
des fichiers de la cassette peut être donnée par la commande catalo- 
gue (c — ‘‘c’’ minuscule). 

Le désassembleur est appelé par la commande d, et vous disposez 
également d’une option très utile de mise au point qui peut désas- 
sembler 8 instructions à la fois. 

Les résultats de la commande Assemble (A), de la commande de 
tri et d'affichage de la table des symboles (S), et du désassembleur 
(d) peuvent être affichés sur l'écran où envoyés vers un appareil exté- 
rieur, c'est-à-dire une imprimante. 

L'utilisateur peut se servir de la commande B pour passer de ZEN 
en BASIC, il pourra ensuite entrer CALL 16384 pour revenir à ZEN. 
Dans une zone comme dans l’autre, vous retrouverez les program- 
mes tels que vous les avez laissés. 


RÉSUMÉ 


ZEN est un produit fort utile, qui offre un environnement compré- 
hensible et bien documenté à ceux qui souhaitent programmer en 
assembleur. La connaissance du langage d'assemblage constitue un 
Capital énorme et nous ouvre bien des portes, c'est pourquoi nous 
invitons les hésitants à plonger. L'eau est bonne ! 
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15 
INTERFACE AVEC LE BASIC 


La plupart des utilisateurs qui approchent l’assembleur pour la pre- 
mière fois ont l'intention d'écrire des sous-programmes élaborés à 
partir du BASIC plutôt que des programmes d'assemblage indépen- 
dants. Dans bien des cas, des paramètres devront être transférés d’un 
langage à l’autre. Ce chapitre examine les techniques permettant de 
passer tranquillement du BASIC à l’assembleur, puis d'y revenir. 

Les exemples donnés s'appliquent particulièrement à l’environne- 
ment de l’assembleur ZEN, mais si un autre assembleur est utilisé, 
les différences devraient être minimes, car ce que nous étudions en 
réalité, ce sont les conventions du BASIC de l’Amstrad. 


COMMENT DÉVELOPPER UN SOUS-PROGRAMME 


Les programmeurs en BASIC ont l'habitude de trouver et de corri- 
ger des fautes dans leurs programmes ; bien peu d’entre nous peu- 
vent se targuer d'écrire un programme important sans faire de fau- 
tes. Lorsque nous exécutons le programme et qu’une erreur est révélée 
— une boucle sans fin, par exemple — nous arrêtons l'exécution, cor- 
rigeons l'erreur, et relançons le programme. S'il s'agit d’une division 
par zéro, nous effectuons une vérification supplémentaire pour nous 
assurer que cette situation ne peut pas se reproduire. 

Avec l'assembleur, une erreur de programmation peut effacer en 
quelques microsecondes le travail de toute une soirée ! 

C'est la raison pour laquelle nous invitons les utilisateurs à effec- 
tuer fréquemment des sauvegardes de leurs programmes source. Le 
code objet peut être restauré en quelques secondes si la source est 
intacte. Par contre, le remplacement du code source peut prendre 
des heures. 

Voici une suite d'opérations que nous vous proposons d'effectuer 
lorsque vous développez des sous-programmes en assembleur avec 
ZEN. Cela vous évitera de vieillir avant l’âge... 


— 125 - 


. Tapez une commande MEMORY 16383 et chargez l’assembleur 


ZEN au-dessus du BASIC. 


. Entrez ZEN et tapez le code source. 


. Créez un programme subsidiaire — qui pourra éventuellement 


être abandonné — à côté du programme principal, afin d'y ins- 
taller les registres et les données qui apparaîtront lorsque le sous- 
programme sera appelé à partir du BASIC. 


. Procédez à l'assemblage et débarrassez-vous des erreurs telles 


que fautes d'orthographe, symboles non déclarés, etc. 


. Sauvegardez (deux fois) le code source sur la cassette. METTEZ 


UNE ÉTIQUETTE SUR LA CASSETTE ! 


. Lancez le programme subsidiaire et arrêtez-le en plaçant un point 


d'arrêt au début du sous-programme principal ; vérifiez qu’il ins- 
talle l’environnement comme prévu. 
Relancez le programme subsidiaire, en plaçant cette fois le point 


d'arrêt plus loin dans le programme. Vérifiez que les zones des 
registres et des données sont correctement manipulées. 


. Si (ou plutôt lorsque !) une erreur se produit, notez les correc- 


tions à faire par n'importe quel moyen — en faisant une note 
au crayon sur le dos d’une enveloppe, où en envoyant un nou- 
vel assemblage directement vers l'imprimante, en indiquant la 
date et l’heure. 


. Modifiez le numéro de la version (qui devrait se trouver dans 


une ligne de commentaire au début du programme) et faites une 
nouvelle sauvegarde dès que vous avez changé quelques instruc- 
tions. NE SAUVEGARDEZ PAS CETTE VERSION PAR DESSUS LA 
DERNIÈRE COPIE DU PROGRAMME SOURCE ; utilisez une autre 
cassette, pour avoir au moins deux cassettes de travail. Indiquez 
l'heure dans le titre du programme que vous sauvegardez, comme 
ceci : 
SAVE ‘’ABC3 4.30 23/8”,B,.. 


. Quand le programme semble fonctionner tout à fait correctement, 


retournez au BASIC avec la commande BYE, écrivez un pro- 
gramme BASIC pour appeler le sous-programme et recommen- 
cez les tests en utilisant toutes les combinaisons de données. 
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11. Revenez à ZEN et effacez le programme subsidiaire qui installe 
les données. Puis effectuez un réassemblage. 


12. Sauvegardez le code objet (pour la première fois) sur cassette. 


13. Réinitialisez l’ensemble du système. (Vous pourrez le faire en sau- 
tant à l'adresse O0, par exemple !) 


14. Entrez le programme BASIC pour définir les limites de la mémoire 
et chargez le module objet en assembleur. Appelez ensuite le 
module pour vérifier que l'opération est correcte. 


Si vous trouvez cela plus difficile que la programmation en BASIC, 
vous avez parfaitement raison ! Mais il y a néanmoins des avantages, 
comme vous vous en rendrez compte lorsque votre premier pro- 
gramme finira par fonctionner comme vous le souhaitez... 


UN MOYEN SIMPLE DE FAIRE PASSER DES INFORMATIONS 


Prenons comme exemple un sous-programme simple. Le système 
d'exploitation de l’Amstrad est plein de routines très utiles que nous 
pouvons appeler directement à partir du BASIC, ou utiliser avec des 
sous-programmes en assembleur. Une liste des routines les plus inté- 
ressantes est donnée dans le prochain chapitre, et une liste complète 
se trouve dans le manuel technique de l'Amstrad. 

Si nous voulons, par exemple, lancer une balle sur l'écran, nous 
souhaitons bien sûr savoir si nous allons rebondir sur quelque chose. 

Cela semble constituer un problème ! En BASIC, aucune commande 
ne nous indique quel caractère se trouve à un emplacement donné 
de l'écran ; nous pourrions utiliser TEST ou TESTR pour vérifier la 
présence d'une couleur spécifique, mais cela serait insuffisant dans 
de nombreuses applications. Nous pourrions lire la mémoire écran 
(avec PEEK), mais sa topographie est très complexe et le déchiffrage 
serait extrêmement difficile. Cependant, il existe une routine du 
système d'exploitation appelée TXT RD CHAR qui correspond exac- 
tement à ce que nous souhaitons. 

Pour utiliser cette routine (ce sous-programme), nous devons nous 
placer sur le ‘’carré”’ en question, grâce à la commande LOCATE, 
puis appeler la routine qui donnera au registre A la valeur du carac- 
tère — 32 pour un espace, 65 pour un ‘‘A’’ majuscule, 250 pour une 
silhouette humaine, etc. Si aucun caractère valide ne se trouve à cet 
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emplacement (ce qui peut arriver lorsqu'un caractère se superpose 
à un autre), l'indicateur de retenue (carry flag) est mis à zéro et le 
registre À donne zéro. 

I nous faut donc un petit sous-programme en assembleur que nous 
pourrons appeler à partir du BASIC, et qui appellera à son tour le 
sous-programme TXT RD CHAR afin de placer le contenu du regis- 
tre À à une adresse de la mémoire où le BASIC pourra le lire. 

Cet échange d’information peut se faire de deux manières : 


e en passant le nom d’une variable du BASIC contenant le caractère ; 


e en écrivant le sous-programme en assembleur afin qu'il puisse pla- 
cer le caractère à une adresse précise que le BASIC pourra lire avec 
une instruction PEEK. 


Cette seconde méthode n’est pas très élégante, mais elle est remar- 
quablement facile ; c’est celle que nous présenterons tout d’abord. 

Normalement, HIMEM a pour valeur AB7Fh (ou 43903, si vous pré- 
férez). Notre sous-programme sera probablement court ; nous l’ins- 
tallerons en AB60h et nous lui ferons placer le caractère en AB7Fh. 

La routine TXT RD CHAR est située en BB60h. Elle n’exige pas de 
paramètres d'entrée, mais deux résultats sont possibles : 


e Retenue mise à 1 et caractère dans le registre A. 
e Retenue mise à O et registre À mis à O (erreur). 
Pour les besoins de notre exemple, nous ignorerons le cas d'erreur 


et supposerons que le caractère retourné par notre routine est tou- 
jours correct. Voici cette routine, entrée avec ZEN. 


ORG  OAB60H ;Position de départ 

LOAD $ :Génération du code objet 
CALL OBB60H Appeler TXT RD CHAR 
LD (0AB7FH),A ;Stocker le résultat 

RET :Retourner au BASIC 
END 


L'assemblage de cette routine n’occupe que 7 petits octets (nous 
avions bien dit que l’assembleur était concis !) à partir de l’adresse 
OAB60N. 
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Si nous suivions notre propre mise en garde, telle qu’elle a été don- 
née précédemment, nous devrions effectuer toute une série d'opé- 
rations pour tester notre routine ; cependant, les règles sont faites 
pour ne pas être suivies aveuglément, et nous testerons ce sous- 
programme grâce au BASIC, car il est plus facile de se déplacer sur 
l'écran avec l'instruction LOCATE. 

Retournons au BASIC et entrons le programme suivant : 


10 CALL &AB60 
20 PRINT PEEK (&AB7F) 


Effaçons l'écran et lançons le programme. Vous devriez voir affi- 
chée la valeur 32, qui est celle d’un espace. Comme RUN, suivi de 
ENTER, a été tapé à la deuxième ligne de l’écran, le système a placé 
le curseur sur la première colonne de la troisième ligne de l'écran, 
où est affiché un espace. 

Parfait ! Maintenant, sans effacer l'écran, entrons : 


5 LOCATE 2,3 


et tapons de nouveau RUN. Cette fois, vous devriez voir affichée la 
valeur 51, car le caractère qui se trouve sur la deuxième colonne de 
la troisième ligne (où nous avons placé le curseur) est un ‘3’, et, 
comme vous pouvez le vérifier en examinant la table des caractères 
du Guide de l'utilisateur (Appendice 111 — p. A3.1), le chiffre 3 à la 
valeur 51 dans le code ASCII. 

Vous pouvez imaginer d’autres tests ; ils devraient nous prouver 
que, tant que nous nous plaçons à une position correcte, le sous- 
programme fonctionne comme nous le souhaitons. Bravo ! 


UTILISONS DES PARAMÈTRES 


Maintenant que nous disposons de notre première routine en assem- 
bleur, nous allons devenir ambitieux et placer le résultat dans une 
variable plutôt que dans une adresse fixe de la mémoire. Ce que nous 
voulons, c’est vérifier qu’un espace se trouve à une position donnée 
en tapant : 


CALL &AB60,A$ 
IFA$< >" "THEN... 
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Mais cela ne marchera pas, quelles que soient les modifications que 
nous pourrions apporter à notre sous-programme en assembleur ! La 
raison en est que les paramètres du BASIC de l’Amstrad sont toujours 
passés en tant que valeurs. Cela signifie que, dans l'exemple précé- 
dent, le BASIC va stocker quelque part une copie de A$ et la passer 
au sous-programme. Comme il s’agit d’une copie, vous pouvez la 
modifier au point de devenir rouge de fureur, cela n’altérera en rien 
le contenu original de A$, qui demeure inchangé. 


Heureusement, il existe une solution simple. Le BASIC de l’Amstrad 
nous offre un opérateur peu connu appelé ‘’ @ ”” qui signifie ‘’au lieu 
de passer une copie de la valeur de la variable, passer l’adresse de 
la variable”. Nous pouvons ainsi utiliser l'adresse pour accéder à la 
variable originale et la modifier. Avant d'appeler la routine, notre pro- 
gramme en BASIC doit définir une constante ayant une longueur de 
1 (car l’assembleur ne peut pas altérer la longueur d'une variable du 
BASIC). Le programme de vérification sera : 


10 A$= "7" 
20 CALL &AB60, @ AS 
30 PRINT A$ 


et nous verrons la variable A$ passer de la valeur ‘‘Z'"" à une autre 
valeur. 


TYPES DE PARAMÈTRES 


Avant d'indiquer les changements du sous-programme en assem- 
bleur, nous devons faire une différence entre les divers types de para- 
mètres, et montrer comment ils sont stockés en BASIC. 

Il y a trois types de variables : les chaînes, les nombres entiers et 
les nombres réels. 

Comme vous le savez, les chaînes de caractères sont généralement 
représentées par un nom qui se termine par le caractère ‘’$'’ (bien 
que ce ne soit pas toujours le cas — voir la commande DEFSTR). Ils 
peuvent avoir jusqu'à 255 octets de long. Une variable chaîne est 
en fait stockée en deux parties, le descripteur de chaîne et le corps 
de chaîne. Le descripteur contient la longueur (en un seul octet, et 
c'est pourquoi sa valeur maximale est 255) suivie de l'adresse du corps. 
Le corps contient les données de la variable. 
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La valeur d’un entier peut aller de — 32768 à + 32767. Si vous con- 
naissez le langage d'assemblage du Z80, vous comprendrez ce que 
cela signifie : cette valeur est stockée dans 2 octets. 

Les réels sont utilisés pour des valeurs plus grandes que celles qui 
peuvent être attribuées aux entiers, et pour indiquer les fractions. Leur 
représentation interne est assez compliquée car elle utilise une man- 
tisse et un exposant. 


PARAMÈTRES : LES CHAINES 


Sachant cela, nous voudrions que la chaîne A$ de notre exemple 
soit stockée (après la ligne 10) de cette manière : 


Descripteur — DB 1 longueur 
— DW corps ;adresse du corps 
Corps — DB ‘’Z 
Que le paramètre soit une valeur ou une adresse, le registre IX 


‘‘pointe”” vers lui dès l'entrée du sous-programme. Notre sous- 
programme en assembleur pourrait donc être modifié comme ceci : 


ORG  OAB60H 


LOAD $ 

CALL  OBB60H ;APPELER TXT RD CHAR 

LD L,(IX +0) : ADRESSE DU DESCRIPTEUR DE A$ 

LD H{IX + 1) 

INC HE IGNORER LA LONGUEUR 

LD E,(HL) ;LIRE L'ADRESSE DU CORPS 

INC HL 

LD D,(HL) ;DANS DE 

LD (DE),A ; STOCKER VALEUR DE A DANS LE 
CORPS 

RET 


et le sous-programme en BASIC devrait être modifié comme précé- 
demment pour inclure l'opérateur ‘ @ ”. 
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Vous devriez pouvoir vous placer en divers endroits de l’écran pour 
vérifier que le sous-programme fonctionne correctement. 


PARAMÈTRES : LES ENTIERS 


Le format du paramètre d’un entier est plus simple. La valeur est 
contenue sous la forme d’un nombre binaire signé de 16 bits, ayant 
une valeur comprise entre —-32768 et +32767 (utilisant une nota- 
tion en complément à deux dans le cas des valeurs négatives). Une 
fois encore, si nous voulons modifier la valeur de la variable passée 
durant le sous-programme, nous devons passer son adresse en utili- 
sant l’opérateur ‘’ @ ”’. Si nous souhaitons simplement lire la valeur 
sans la modifier, il est inutile de nous encombrer du ‘’ @ ”’. Notre 
sous-programme pourrait donc utiliser un nombre entier plutôt qu’une 
variable chaîne : 


10 Z%=0 


20 CALL &AB60, @ Z% 
30 PRINT Z% 


et le sous-programme en assembleur pourrait être modifié ainsi : 


ORG OAB60H 


LOAD $ 

CALL 0BB60H 
LD L,(IX +0) 
LD H,(IX+1) 
LD (HL),A 
RET 


Effectuez les vérifications habituelles. 


PARAMÈTRES : LES RÉELS 


Ayant maîtrisé les chaînes et les entiers, il nous reste les réels. Mal- 
heureusement, leur format est complexe ! Un exposant de 4 octets 
est suivi par une mantisse de 1 octet qui est ‘‘décalée de 128”. Ce 
format est expliqué plus en détail dans l’Amstrad Concise BASIC Spe- 
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cific Specification (SOFT 157) qui décrit le BASIC de l’Amstrad d’une 
manière plus approfondie que le guide standard. Si vous désirez étu- 
dier le format de divers nombres réels, nous vous suggérons d'écrire 
un sous-programme qui place les 5 octets dans des zones spécifiques 
de la mémoire, puis affiche leur valeur en revenant au BASIC. Ce 
programme suffira : 


10 Z=32 

20 CALL &AB60, @ Z 

30 FOR J=&AB7B TO &AB7F 
40 PRINT HEX$(PEEK(J));" ‘; 
50 NEXT J 

60 PRINT 


et vous l’associerez à ce sous-programme en assembleur : 


ORG OAB60H 


LOAD $ 

CALL 0BB60H 

LD L,(IX + 0) 
LD H,(IX +1) 
LD DE,0AB7BH 
LD BC,5 

LDIR 

RET 


En modifiant la ligne 10, vous obtiendrez des résultats de ce genre : 


0 0 0 0 O0 z=0 
0 0 0 0 81 z = 
0 0 0 0 82 z =2 
0 0 0 80 81 z = —1,etc. 


Dans cet exemple, nous avons passé l'adresse du nombre réel et 
non sa valeur elle-même, grâce à l'opérateur @ . Il faut préciser que 
si vous tentez de passer la valeur elle-même, le BASIC convertit le 
nombre réel en un nombre entier non signé, et que vous passez alors 
un nombre de 2 octets et non pas un nombre complexe occupant 
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5 octets comme celui que nous venons de montrer. Bien entendu, 
la conversion d'un nombre réel en nombre entier entraînera géné- 
ralement une perte d'information car les fractions seront arrondies 
à l’entier le plus proche. 

A moins d'écrire vos propres routines mathématiques en assem- 
bleur pour calculer ces nombres complexes, vos paramètres seront 
sans doute rarement des nombres réels ! 





PLUSIEURS PARAMÈTRES 


Pour l'instant, nous avons uniquement étudié le moyen de faire 
passer un paramètre. Mais il est possible d'en faire passer plusieurs, 
et nous pouvons mêler des valeurs et des adresses si nous le dési- 
rons. Quel que soit le type choisi, le paramètre sera toujours repré- 
senté par un nombre de 2 octets. 

Lorsque vous entrez le sous-programme, le BASIC place dans le 
registre À le nombre de paramètres (à partir de 0). Comme nous 
l'avons déjà vu, le registre IX est défini de manière à pointer vers les 
paramètres eux-mêmes, mais notez bien qu'il pointe vers le dernier, 
et non pas vers le premier. Pour illustrer cela, examinons le fragment 
suivant : 


5 A% =5 : ABC$ = "HELLO" : Z=3.5 
10 CALL &8000, @ A%,@ ABCS$,Z,-1 


Il y a quatre paramètes : deux adresses et deux valeurs. Ainsi, la 
valeur initiale de A sera 4 et le registre IX sera chargé comme ceci : 


Registre IX——+DW  -1 
DW valeur de Z 
DW adresse du descripteur de ABC$ 
DW _ adresse de A% 


ce qui est peut-être l'inverse de ce que vous attendiez. 


Quand nous avons testé le programme précédent, nous avons enre- 
gistré les valeurs suivantes ; si vous entrez les mêmes valeurs, il y aura 
peut-être des petites différences (selon votre version du BASIC et de 
ZEN, ou si vous tapez des espaces supplémentaires), mais les résul- 
tats devraient être identiques. 


z ASE = 


Le registre IX contenait BFF6h. Et à l'adresse BFF6h, nous trouvons : 


BFF6: FF FF 
BFF8: 04 00 CA 01 C2 01 … 


et vous pouvez constater que les paramètres sont tous stockés en tant 
que nombres de 2 octets, et que IX pointe bien vers —1 (FFFFh), suivi 
de 4 (Z converti à l’entier le plus proche), suivi des deux adresses 
O1CAh et 01C2h. En O1CAh nous trouvons le descripteur de chaîne 
contenant la longueur, 05h, suivie par une adresse, 0185h, qui pointe 
correctement vers le corps de la chaîne ABCS : 


0185: 48 45 4C 4C 4F HELLO 


Finalement, à l'adresse 01C2h, nous trouvons 05 00 qui est la valeur 
de A%. 

Dans cet exemple, nous pourrions modifier les valeurs de A% et 
de ABC$, mais non pas celle de Z ni (bien évidemment) celle de —-1. 

Tout est bien clair ? 
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16 
LES ROUTINES DU SYSTÈME D'EXPLOITATION 


Maintenant que vous pouvez établir des relations entre le BASIC et 
les routines en assembleur, vous êtes certainement désireux de tes- 
ter quelques idées. 


BLOCS JUMP 


Le système d'exploitation de l’Amstrad a été conçu pour être acces- 
sible aux utilisateurs. 1| contient un grand nombre de sous-programmes 
qui lui sont directement nécessaires pour le bon fonctionnement de 
l'ordinateur, mais qui sont également documentés et accessibles aux 
programmes de l'utilisateur. 

Un problème qui se pose toujours aux concepteurs est introduit 
par le fait que les sous-programmes peuvent se trouver à des empla- 
cements différents selon les versions du système d'exploitation, en 
fonction des corrections et des améliorations qui lui sont apportées. 
Si l'utilisateur écrit son programme en pensant que la routine 
TXT RD CHAR se trouve à l'adresse BB60h et découvre qu'elle se 
trouve en BB68h dans une version ultérieure de l’Amstrad, il risque 
d'être plutôt mécontent, tout comme les autres utilisateurs de son 
programme. 

Dans le cas de l’Amstrad, ce problème est résolu par des ‘‘’blocs 
JUMP”. Comme leur nom l'indique, les blocs JUMP sont tout bon- 
nement des suites d'instructions JUMP qui envoient vers diverses rou- 
tines du système d'exploitation. Ces blocs sont contenus dans les ROM 
et copiés en RAM lors de l’initialisation du système. Ils sont toujours 
placés au même endroit, et l’utilisateur peut ainsi être sûr qu'il y aura 
toujours une instruction TXT.RD.CHAR à l'adresse BB60h, tandis que 
le concepteur est libre de déplacer TXT RD CHAR là où il le désire, 
pourvu qu'il modifie le bloc JUMP en conséquence. C'est simple ! 

La morale de cette histoire : fiez-vous aux blocs JUMP, et ne cher- 
chez pas à les éviter. Pensez qu’au bout de deux ans, un Amstrad 
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disposant d’un lecteur de disquette et de ROM supplémentaires pourra 
posséder une mémoire très différente, mais que les blocs JUMP seront 
certainement identiques. 

Il y a quatre blocs JUMP au total. Le manuel technique de l’Ams- 
trad les détaille d’une manière approfondie et insiste sur les condi- 
tions d'entrée et de sortie de chaque routine. Si vous envisagez de 
programmer sérieusement en assembleur, la lecture du manuel tech- 
nique vous sera absolument nécessaire. Nous ne cherchons pas à 
le remplacer ici, mais seulement à préciser quelles sont les routines 
les plus importantes. 

Les utilisateurs confirmés peuvent noter qu’il leur est possible de 
modifier une instruction de saut (JUMP) d'un bloc JUMP afin de poin- 
ter vers leur propre routine en RAM plutôt que vers la routine ini- 
tiale du système, qui se trouve en ROM. Si les conditions d'entrée 
et de sortie sont respectées par la nouvelle routine, d’autres program- 
mes peuvent l'utiliser de manière satisfaisante. Mais vous devez être 
sûr de ce que vous faites. 


LE BLOC JUMP PRINCIPAL 


Le bloc JUMP principal — celui auquel les utilisateurs souhaitent 
généralement avoir accès — se situe en BBOOh - BD37h. Il contient 
190 instructions de 3 octets, mais en fait la plupart d’entre elles ne 
sont pas des sauts ! Vous vous souvenez que les ROM de l’Amstrad 
se superposent à la RAM aux deux extrémités de la mémoire. La plu- 
part des rubriques du bloc JUMP principal sont en fait composées 
d'une instruction RST 8 suivie par l’adresse d’une routine, et qui place 
les indicateurs dans les bits les plus significatifs. Cela provoque le saut 
demandé vers le bas de la mémoire, mais permet également de vali- 
der où d’inhiber les ROM, selon l’état des indicateurs. || s’agit en effet 
d’une instruction supplémentaire du Z80 qui nous dit : ‘effectuer un 
saut et déterminer l’état de la ROM”. 

Certaines des rubriques les plus utiles de ce bloc JUMP sont les 
suivantes : 


+ BB00 Keyboard Manager Initialise est utilisée pour remettre le clavier 
dans son état initial (qui suit la mise en route du système). Toutes 
les expansions retrouvent leurs valeurs ‘’par défaut”, le tampon (buf- 
fer) est vidé, les vitesses de répétition retrouvent leur valeur ini- 
tiale, etc. 
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BB06 Keyboard Wait Char attend le prochain caractère venant du cla- 
vier. C’est généralement le prochain caractère tapé, mais ce peut 
être, par exemple, le prochain caractère d'une chaîne d'expansion, 
ou un caractère d’une ‘“‘table de traduction’’ de touches. Le regis- 
tre À contient le caractère. 


BB09 Keyboard Read Char Contrairement à la routine précédente, 
celle-ci retourne immédiatement une valeur, qu’un caractère soit 
prêt ou non. Si un caractère est trouvé, il est placé dans A et l'indi- 
cateur de retenue est mis à 1. Sinon, la retenue est mise à O. 


BB24 Get Joystick détermine l’état des joysticks. Un octet d’infor- 
mation est donné pour chaque joystick (qu'il soit ou non branché 
sur l’Amstrad). Le registre H contient la valeur du joystick 0 et le 
registre L la valeur du joystick 1. Les bits sont : 


O — haut 

1 — bas 

2 — gauche 
3 — droite 

4 — FIRE 2 

5 — FIRE] 


BB4E Txt Initialise Initialisation complète du texte de l’unité de visua- 
lisation, comme lors d’une remise en marche du système. Tous les 
‘‘flux’” (canaux) retrouvent leur valeur par défaut, l'écran est effacé 
et le curseur est placé dans le coin supérieur gauche. 


BB5A Txt Output envoie un caractère vers le canal actuellement 
sélectionné. Le caractère, contenu dans le registre À, peut être un 
caractère de contrôle, auquel cas il n’est pas affiché. 


BB5D Txt Wr Char écrit un caractère par le canal actuellement sélec- 
tionné. Contrairement à la routine Txt Output, les caractères de 
contrôle sont affichés comme les autres. 


BB60 Txt Rd Char lit un caractère à partir de l'écran. Si vous avez 
utilisé les exemples de ce livre, vous devriez bien connaître cette 
routine ! Si un caractère valide se trouve à la position sélection- 
née, il est placé dans le registre À, avec l'indicateur de retenue à 
1. Sinon, l'indicateur de retenue est mis à O. 


BB63 Txt Set Graphic Cette routine est à la fois utilisée pour valider 
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DE 


et inhiber l'écriture des caractères graphiques. La valeur de A est 
différente de zéro pour la validation, et zéro pour l’inhibition. Cela 
équivaut à l’utilisation de TAG et de TAGOFF en BASIC. 


BB6C Txt Clear Window efface la fenêtre sélectionnée. Elle retrouve 
la valeur de l'encre du papier du flux actuellement sélectionné. 


BB6F Txt Set Column Le registre A contient le numéro de la colonne 
sélectionnée. Cette routine donne la position horizontale du 
curseur. 


BB72 Txt Set Row Le registre À contient le numéro de la ligne. 


BB75 Txt Set Cursor Le registre H contient le numéro de la colonne 
choisie et le registre L le numéro de la ligne choisie. Cette routine 
accomplit une tâche équivalente de celles des deux routines 
précédentes. 


BB90 Txt Set Pen Le registre À contient la valeur de l’encre à utili- 
ser. Le système masque cette valeur pour s'assurer qu’elle ne dépas- 
sera pas les limites autorisées. 


BB96 Txt Set Paper Le registre À contient la valeur de l'encre attri- 
buée au papier. 


BB9F Txt Set Background Si A est égal à zéro, la transparence est 
inhibée. Si A est différent de zéro, la transparence est validée. Cela 
affecte l'écriture des caractères sur l'écran en mode texte ; si la trans- 
parence est validée, le fond n’est pas préalablement effacé et les 
caractères sont écrits sur ce qui se trouve déjà sur l'écran. Cette 
routine est surtout utilisée pour sous-titrer des diagrammes, etc. 
(Remarque : En mode graphique, le fond est TOUJOURS effacé 
préalablement, que la transparence soit validée ou non.) 


BBB4 Txt Stream select Le registre À contient le numéro du flux 
(canal), entre 0 et 7, qui est sélectionné pour l'écriture ultérieure. 


BBBA Gra Initialise Le flux graphique de l'unité de visualisation est 
initialisé, comme lors d’une mise en marche du système. 


BBCO Gra Move Absolute Le registre DE contient l'adresse X sélec- 
tionnée (position horizontale) et le registre HL contient l'adresse Y. 
Ces positions peuvent se trouver en dehors de l'écran. 


BBDB Gra Clear Window La fenêtre graphique est effacée et prend 
la couleur de l’encre attribuée au papier graphique. 
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+ BBDE Gra Set Pen L'encre graphique prend la valeur de l'encre 
contenue dans le registre A. 


e BBEA4 Gra Set Paper La couleur du fond est initialisée par la valeur 
contenue dans A. 


° BBEA Gra Plot Absolute Un point est affiché à la position détermi- 
née par la coordonnée X (contenue dans DE) et par la coordonnée 
Y (contenue dans HL). 


° BBF6 Gra Line Absolute Une ligne est dessinée jusqu’à la position 
déterminée par les coordonnées X et Y (contenues dans DE et HL). 


e BBFC Gra Wr Char Un caractère, contenu dans le registre À, est écrit 
sur l’écran à la position du curseur graphique. 


e BC14 Scr Clear L'écran est effacé et prend la couleur de l'encre O. 


Évidemment, il y en a bien d’autres, et nous pourrions donner de 
nombreux détails supplémentaires sur l’utilisation de ces routines. 
Consultez le manuel technique pour des explications plus approfon- 
dies. Les indications précédentes ont pour but de vous faire entre- 
voir tout ce à quoi vous pouvez avoir accès. 


UN EXEMPLE DE SOUS-PROGRAMME 


Le sous-programme suivant est tiré du programme ‘‘Fantômes en 
bouteille’” (Chapitre 13). 1| montre comment sont appelées trois des 
routines décrites précédemment, et vous propose une manière pos- 
sible de relier vos programmes en BASIC et des routines du système 
d'exploitation. 

Ce sous-programme contient en fait deux routines. La première, 
à l'adresse 7000, lit le caractère situé à la position actuelle du cur- 
seur, stocke le caractère dans SAVECHAR (7007h) et retourne au 
BASIC. Le BASIC peut récupérer le caractère en lisant l’adresse 7007h 
(grâce à une commande PEEK). 

La seconde routine, beaucoup plus longue, s'occupe du déplace- 
ment des fantômes sur l'écran. Sa tâche consiste à lire successive- 
ment la position de chaque fantôme et à le déplacer en direction du 
héros (dont la position est déterminée par les coordonnées MX et 
MY que le BASIC a placées en RAM grâce à des commandes POKE). 
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Les coordonnées de chaque fantôme sont modifiées selon que le 
héros se trouve plus haut ou plus bas, plus à droite ou plus à gau- 
che. Cela nous donne une nouvelle série de coordonnées qui sont 
placées sur la pile par l'instruction G4. Le curseur est installé dans 
la nouvelle position et le caractère qui s'y trouve déjà est examiné. 
S'il s’agit du héros, la poursuite est terminée et l'indicateur DONE- 
FLAG est mis à l’état 1 pour informer le BASIC de la situation. Si ce 
n'est pas un espace, aucune action n’est accomplie. Mais si la voie 
est libre, un espace est affiché à la position actuelle du fantôme et 
ce dernier est redessiné à sa nouvelle position. Les nouvelles coor- 
données sont alors stockées pour la prochaine exécution de la routine. 


! MAN: EGU 249 

2 GHOST: EQu 22 

J SPACE: EQU 22 

4 OR6 700Cx 

5 LOAD # 

b TÂTSETCUR: EQU GEB75H 

1 TXTHRCHAR: EQU OBBSOH 

8 TATROCHAR: EQU OBB&ON 

9 7000 CD60BB RD: CALL TXTRDCHAR 

10 7003 320770 LD  (SAVECHAR) ,A 

11 7006 C9 RET 

12 7007 00 SAVECHAR: DB 0 

13 MVGHOSTS: EQU $# 

14 7008 AF XOR à 

15 7009 32FE70 LD  (DONEFLAS) À zattente 

16 7000 3AFF70 LD A, (NUMSHCSTS) 

17 700F 32FD70 LD (TEMPGHIETS) A 

18 7012 2A007! LD HL, (MX) :placer coord. Man dans HL 
19 7015 ES PUSH Hi 

20 7016 C1 POP BC :changer en BC 
21 7017 210271 LD HL,5!4 

22 TOIA CS 60: PUSH EC 

23 7018 56 LD 9,(HL) 5: GX 

24 701C 23 INC He 

25 7010 SE LD E,(HL) 82 51 

26 JOLE 23 INC He 

27 J01F ES PUSH HL :Ptr vers nouvelles coord. 
28 7020 DS PUSH DE snouvelles coord. fantôme 
29 7021 79 LD AC 

30 7022 BA CP 2 

31 7023 2806 JR 1,67 

32 7025 3803 JR  C,61 

33 7027 14 INC D 36e! 

34 7028 1801 JR 62 

35 7024 15 Gi: DEC D 351-! 

36 702B 78 62: LD AR MY 

37 702C BB CP E 


38 7020 2806 JR 1,64 


39 702F 580 JR C,63 

40 7031 IC INC E ;6Y+1 

41 7032 1891 JR 34 

42 7034 ID 63: DEC E HAE 

45 7035 E8 54: EX  DE,HL 

447038 ES PUSH HL ;sauvegarder NGX,NGY 
45 7037 CD7SB8 CALL TATSETCUR 

46 703A CDÉOEE CALL TATRDCHAR 

47 7039 DI 

48 703€ E! 


49 703F O5 
S0 7640 FEFS 
1 7042 2004 











52 CNE 

53 7044 1€! Là 4,! 

S4 7046 32FET! 12  (DONEFLAGI A 

55 7649 2F070 Lÿ TEMFG4DST5) A 

58 704C 804 CR  aflTE 

57 NOTOCNE: EsL 

58 7O4E FE [? SPACE 

som ne 4, Népitats re 

ë SP ITE Lee 

1 7052 CD7553 CIS 

62 7055 3EZ0 LD 

83 7057 CDSD85 CACL TETNRCHAR 

64 70SA EI PCF HL 

65 795B ES FUSH ML 

66 705C CO7SEP CALL TATSETCUR 

67 705F JEE! LD A,6H0ST 

68 7061 COSDEE CALL TITNRCHAR 

ë9 7064 D POP DE 

70 7085 EI FGF ML 

11 7965 28 DEC HE 

T2 7067 2 DEC HL 

73 7069 72 LD fHi),0 

74 706$ 23 INC Hi 

75 7C6A 71 LD ML), 

7h JGbE 21 INC fi 

77 3080 ES PU L ;Ptr vers nouvelles coord. 
Gb F £ 


zretour au BASIC 





1 





55 LC: 

sû 70FD 00 0 
$1 20FE 00 29 BE 0 
S2 JOFF (° NUMGHCSTE: DE à 
527100 0900 MX: 5 0 
$47102 0900 El: œ © 
sS 7106 0090 821: œ 0 
Se 7106 CCCO Et: x 0 
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:10 0600 





0900 Gex: DK 9 

00c0 GSX: ER © 

0990 GX: Eh © 

0000 G67X: D © 

GEX: Th © 

2 0000 6Sx: tk 6 
590 EICX: Te 
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a 
APPLICATIONS SÉRIEUSES 


Ge partie résume les éléments dont il faut tenir compte lorsqu'on 
réalise des programmes en vue d'applications à vocation profession- 
nelle. Elle examine en particulier la présentation de l'affichage, la sélec- 
tion des options et les entrées de données par l'utilisateur. Elle contient 
également un programme complet de comptabilité personnelle. 
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LA CONCEPTION D'UN PROGRAMME 
DE COMPTABILITÉ PERSONNELLE 


Les programmes que nous avons réalisés jusqu’à présent sont plutôt 
des aventures légères, écrites pour notre propre divertissement. Il est 
temps de se pencher sur un programme ayant un objectif plus sérieux : 
un programme qui nous permettra de trier notre comptabilité. 

Il ne faut pas considérer l’Amstrad comme un simple ordinateur 
de jeux. Le BASIC est assez rapide pour des applications sérieuses 
et possède plusieurs caractéristiques qui nous permettent de mani- 
puler des chaînes de caractères, d'afficher des colonnes, etc. 

Évidemment, n'ayant pas (encore !) de lecteur de disquette, nous 
sommes contraints à certaines restrictions ; nous ne souhaitons pas 
lire ou écrire trop souvent des fichiers sur cassette, car ces opéra- 
tions seraient trop longues. Par contre, la RAM disponible est suffi- 
samment importante pour que nous puissions placer en mémoire tout 
ce que nous voulons traiter, manipuler les données de la RAM, et 
les enregistrer sur cassette seulement lorsque nous avons terminé 
toutes les opérations. 


QUELLES FONCTIONS ? 


Que doit faire un programme de comptabilité personnelle ? Nous 
dire à tout moment ‘‘où nous en sommes” (si nous avons le courage 
de supporter la vérité !), nous aider à vérifier nos comptes en banque, 
analyser nos dépenses pour nous permettre une meilleure prévision, 
maintenir l'équilibre pour que, dans le cas où un compte est appro- 
visionné alors qu'un autre — disons un compte de carte de crédit — 
se trouve ‘‘en rouge”, nous puissions effectuer un transfert afin d'éviter 
de payer des intérêts. 

Cela suffit pour un début. Voilà pour les tâches. Si nous passions 
à la conception du programme ? 
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LA CONCEPTION DANS SES GRANDES LIGNES 


Nous attendons du programme que son utilisation soit aisée et qu’il 
affiche rapidement les informations. Nous ne sommes pas des as de 
la dactylographie et nous voulons avoir le minimum d'informations 
à taper, ce qui signifie que le programme doit éventuellement pouvoir 
considérer des valeurs par défaut. Nous devons disposer de certai- 
nes opérations de vérification qui nous préviendrons si nous tapons 
une date dans un champ attribué à des montants — mais sans 
rechercher à tout prix les vérifications rigoureuses des programmes 
commerciaux. Après tout, nous n'avons pas besoin de nous protéger 
nous-mêmes contre la fraude ! 

Et l'affichage ? Doit-il se faire sur 40 où sur 80 colonnes ? Appa- 
remment, aucune raison ne nous empêche d'utiliser successivement 
l’un ou l’autre mode. Allons-nous employer la couleur, ou bien celle-ci 
est-elle inutile pour ce genre de programme ? 

Bien entendu, nos réponses à toutes ces questions peuvent être 
différentes de celles que vous auriez données ; c’est la raison pour 
laquelle le code source est inclus à la fin de l'ouvrage, afin que vous 
puissiez effectuer les modifications que vous jugerez bonnes. 


SÉLECTION ‘’A LA CARTE" 


Un des premiers problèmes de conception que nous rencontrons 
consiste à savoir comment l'utilisateur pourra sélectionner un sous- 
programme. Nous pouvons déjà imaginer qu'il y aura de nombreux 
sous-programmes, comme ‘Affichage des soldes’’, ‘’Liste de toutes 
les dépenses du mois”, ou encore ‘Liste de toutes les dépenses d’auto- 
mobile depuis septembre’’. Nous devons pouvoir faire notre choix 
en tapant le minimum de touches. 

Il y a plusieurs options. La plus simple, que vous rencontrerez fré- 
quemment dans les programmes commerciaux, est le menu 
numéroté : 


. Affichage des soldes actuels. 
Liste des dépenses. 
. Analyse des dépenses par catégorie. 


WE 
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Sélectionnez un numéro de rubrique et pressez ENTER. 

Tout cela est facile à réaliser, et cela marche très bien s’il n’y a pas 
plus d’une vingtaine d'options (environ). Au-delà, l'écran devient trop 
encombré et vous devez passer à des sous-menus, ou menus secon- 
daires. De plus, lorsque les options sont trop nombreuses, il est diffi- 
cile de se souvenir des numéros et cela entraîne un risque d'erreur. 

Une autre solution consiste en un menu à partir duquel vous sélec- 
tionnez une rubrique en tapant la ou les premières lettres de l'option : 


Liste des Soldes 
Liste des Dépenses 
Analyse des Dépenses 


Tapez les lettres majuscules de l’option choisie :[ Jet l'utilisateur 
peut alors taper LS, LD ou AD. 

L'utilisateur peut plus facilement se rappeler les options, à condi- 
tion que leurs titres soient bien choisis et ne se ressemblent pas trop. 
Néanmoins, s’il y a près d’une vingtaine d'options disponibles, les 
difficultés réapparaissent et cette méthode perd de son attrait. 

Une troisième méthode, très en vogue actuellement, consiste à 
‘’pointer’” une flèche ou un curseur vers l'option et à la sélectionner 
ensuite avec la touche ENTER. Lorsque l'option principale est choisie, 
une liste d'options secondaires peut être affichée, et la sélection 
s'effectue alors de la même manière. 


Il'existe plusieurs méthodes de ce genre, utilisant généralement une 
“souris”, mais l’industrie du logiciel, dans son ensemble, paraît assez 
réservée sur le développement de cet outil. S'agit-il simplement d’un 
gadget ? 

Il faut admettre que la souris est utile pour la sélection des options 
d’un menu. Le geste qui consiste à pointer est assez naturel, et peu 
importe que l'option de vos désirs se trouve ‘‘dans la pièce d'à côté” 
ou dans le coin de l'écran, la distance n’est pas un problème. 

L’'Amstrad n’a pas (encore !) de souris mais aucune raison ne nous 
empêche d'utiliser la technique ‘pointage et sélection’” pour le menu 
de notre programme de comptabilité personnelle. Il n’y a pas encore 
de réponse définitive permettant d'affirmer qu’une méthode est supé- 
rieure aux autres, mais dans ce cas précis nous allons prendre une 
décision arbitraire. 
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L'AFFICHAGE 


On pourrait écrire un livre entier sur la manière de présenter des 
données sur un écran (il est sans doute déjà écrit !). Il suffit de dire 
que nous diviserons notre écran en trois zones logiques — l'en-tête, 
le corps et l'indicatif. L’en-tête occupera les 7 lignes supérieures, le 
corps (qui contiendra la plupart des informations) occupera les lignes 
8à23;il y aura une seule ligne pour les indicatifs ; les messages 
d'erreurs apparaîtront à la ligne 25. Il est rassurant pour l'utilisateur 
de disposer d’un écran ayant une présentation précise. 

Pour en revenir à la question des 40 ou 80 colonnes, nous avons 
décidé d'utiliser, tant que faire se peut, un écran de 40 colonnes, et 
de passer en 80 colonnes lorsque nous y sommes obligés par la nature 
des données affichées. La plupart des entrées de données peuvent 
se faire sur un écran de 40 colonnes. 

Nous avons également décidé de sélectionner le noir comme cou- 
leur de fond et le blanc comme couleur du stylo. Ce choix est recom- 
mandé pour un maximum de clarté en mode 2 sur un écran cou- 
leur, et nous l’avons donc adopté. Le bleu clair est utilisé pour montrer 
à l'utilisateur à quel endroit sa réponse est attendue (sauf avec un 
affichage sur 80 colonnes, évidemment). 


ENTRER DES DONNÉES 
Voilà pour l'affichage. Parlons maintenant de la manière d'entrer 
les informations. Il peut sembler évident que les commandes à utiliser 


soient INPUT ou LINE INPUT ; pourtant, ce n’est pas le cas, et il vaut 
mieux éviter ces commandes. Si vous programmez : 


INPUT ‘Indiquez le total: ‘’;Z 
et que l'utilisateur tape par erreur 

solde actuel 
BASIC réagira en affichant le message ‘’Redo from start” (‘‘’Recom- 
mencez’’) qui va déranger votre belle présentation, car il y a peu de 


chances pour que ce message soit affiché à la ligne 25, comme les 
autres messages d'erreur. 
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L'usage de la commande INPUT peut entraîner d’autres 
inconvénients : 


e Le programmeur ne peut rien faire pendant l’entrée des données ; 
vous n'avez aucun contrôle sur les informations tant que l’utilisa- 
teur n’a pas pressé ENTER. S'il a entré des lettres dans un champ 
numérique, vous ne le saurez que lorsqu'il aura fini de taper. 


e S'il continue de taper sans presser ENTER, il peut entrer 256 carac- 
tères avant que le BASIC ne mette le holà, et votre bel affichage 
sera réduit à néant. 


Ne croyez pas que nous prenions l'utilisateur pour plus bête qu'il 
n’est. Nous pensons simplement que, lorsqu'on écrit ce genre de pro- 
gramme, il vaut mieux prévoir le pire. Vous ne pouvez pas vous garan- 
tir contre un sabotage délibéré, mais vous pouvez et vous devez pro- 
téger vos programmes contre les erreurs des utilisateurs ‘‘technique- 
ment naïfs”’. 

Notre première tâche consiste donc à écrire un sous-programme 
bâti autour de l’utilisation de la commande INKEY$. Ce qui signifie 
que : 


° Nous pouvons attribuer une longueur maximale à chaque champ, 
et éviter que l'utilisateur la dépasse. 


° Nous pouvons choisir le genre de données qui doivent être entrées, 
les vérifier (jusqu’à un certain point) à mesure qu’elles sont tapées, 
en refusant par exemple que des symboles graphiques soient insérés 
dans des noms, ou que des lettres de l’alphabet remplacent des 
chiffres, etc. 


° Nous pouvons indiquer visuellement les limites du champ qui doit 
contenir les données. 


e Nous pouvons utiliser le même sous-programme pour les cas où 
nous ne voulons pas attendre la frappe de la touche ENTER — par 
exemple, lorsque nous déplaçons une flèche sur l’écran afin de 
choisir une option du menu. 


Dans le programme de comptabilité personnelle, ce sous- 


programme est situé aux lignes 8000 à 8999 et nous espérons que 
vous pourrez le réutiliser dans d’autres programmes. Notez bien que 
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ce n’est pas une solution définitive ; vous pourriez décider d'effec- 
tuer des vérifications plus rigoureuses, mais cela devrait vous don- 
ner des idées pour procéder à vos propres améliorations. Ce sous- 
programme est décrit plus précisément dans le Chapitre 19. 
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18 
COMPTABILITÉ PERSONNELLE 
LES INSTRUCTIONS 


L'ensemble du programme de comptabilité personnelle est détaillé 
dans le chapitre suivant. C’est un long programme et il vous faudra 
du temps pour le taper, avec quelques risques d'erreur. 

Réinitialisez le système ; pour exécuter le programme, insérez la 
cassette et maintenez enfoncée la touche CTRL en pressant la petite 
touche ENTER. Comme le programme est long, il faudra plusieurs 
minutes pour le charger s’il a été enregistré en vitesse lente. Pour 
gagner du temps, il vaut mieux le sauvegarder en vitesse rapide. 

Le programme vous demande la date. Donnez-la sous la forme d'un 
nombre de 6 chiffres (format jmmaa — jour/mois/année). 

Un indicatif vous demande un nom de fichier. Le programme peut 
traiter plusieurs centaines de dépenses et de recettes et jusqu’à une 
dizaine de comptes. Pour la plupart des utilisateurs, il sera pratique 
de conserver sur une cassette les informations d’un trimestre, et vous 
pouvez appeler vos fichiers 1T85, 2T85, etc. Cela vaut la peine 
d'inclure la date, c’est-à-dire la date de création du fichier ; un nom 
complet pourrait donc être ‘‘1T85 4/5/85’’. Vous avez droit à un maxi- 
mum de 16 caractères. 

On vous demande ensuite si le fichier existe déjà. Si c’est la pre- 
mière fois que vous utilisez ce programme, le fichier n’existera évi- 
demment pas, et la réponse sera N (non). Bien entendu, vous devrez 
avoir une où deux cassettes vierges à portée de la main. 


SÉLECTION D'UNE OPTION 


L'écran propose alors un menu, et une flèche pointe vers le choix 
actuel (il y a six options). Au départ, la flèche pointe vers l'option 
‘‘Comptes”’, et une liste des options secondaires (‘’options mineu- 
res’’) est affichée sur la partie droite de l'écran. 
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Les touches flèches ‘’haut’’ et ‘‘bas’’ sont utilisées pour déplacer 


la flèche de l’écran à votre convenance. Pressez toutes les touches 


et vous verrez que seules cinq d’entre elles produisent un effet sur 
l'exécution du programme : 


La touche ESC (que vous ne devriez pas presser, car vous n'avez 
aucune raison de vouloir interrompre le programme). 


Les touches flèches ‘‘’haut’’ et ‘’bas’”’. Si vous pressez la touche 
‘‘’haut’” alors que vous êtes déjà sur la ligne supérieure, vous pas- 
serez à la ligne inférieure. Et inversement. 


La touche ENTER sélectionne l'option en ‘’bloquant’’ la flèche à 
gauche de l'écran et en affichant une seconde flèche devant la liste 
des options secondaires. 


La touche CLR vous permet de revenir au menu des options prin- 
cipales si vous êtes dans le menu des options secondaires. Si vous 
vous trouvez déjà dans la partie gauche de l'écran, elle place la 
flèche devant l'option FIN. 


La présentation de l'écran est conçue pour un usage aisé. Faites 
des essais pour vous habituer à la sélection des options. 


COMPTABILITÉ; PERSONNELLE 


OPTIONS MAJEURES OPTIONS MINEURES 
—— COMPTES ÉTAT DES SOLDES 

RECETTES AJOUTS 

DÉPENSES LISTE DES NOMS 

TRANSFERTS SUPPRESSION 

VIREMENTS AUTO. REPORT 

FIN AJUSTEMENT OUV. 


RETOUR AU MENU 


FAMILIARISEZ-VOUS ! 


Nous vous conseillons vivement de vous familiariser avec toutes 
les options du programme avant de chercher à entrer de ‘‘vraies’’ 
données. Donnez quelques noms de comptes, quelques catégories 
et méthodes de paiement et de recettes, et entrez une vingtaine ou 
une trentaine de transactions, puis affichez les soldes courants, 
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l'analyse des dépenses, etc. Cela vous aidera à choisir les catégories 
que vous désirez utiliser. Il est préférable de les déterminer dès le 
début plutôt que de les modifier par la suite, même si le programme 
vous permet de le faire. 


L'ENTRÉE DES DONNÉES INITIALES 


En supposant que ce soit la première utilisation du programme, vous 
devez entrer quelques constantes et il vous faut réfléchir sérieuse- 
ment, avant de les taper, à la manière dont seront traitées les don- 
nées. Le programme vous autorise à changer d'avis ultérieurement 
et à ajouter de nouvelles catégories ou divers éléments nouveaux, 
mais en choisissant une structure bien définie il vous sera plus facile 
de comparer deux périodes. 

A ce stade, les décisions à prendre sont les suivantes : 

° nombre de comptes, 

e catégories de dépenses, 

e méthodes de paiement, 

e catégories de recettes, 

e méthodes d’encaissement. 


De plus, vous devrez entrer des informations sur les virements auto- 
matiques et sur les retraits directs. 


POSSIBILITÉS DU PROGRAMME 


Comme il s'agit d’un système qui utilise des cassettes, nous stockons 
toutes les données en mémoire et nous les enregistrons sur cassette 
lorsque le traitement des informations est terminé. Cela signifie qu'il 
y a des limites au nombre de données que nous pouvons traiter simul- 
tanément. Voici ces limites : 

e 10 comptes, 
° 30 catégories de dépenses, 


e 15 catégories de recettes, 
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e 20 méthodes de paiement, 

e 10 méthodes d'encaissement, 

e 150 opérations de paiement, 

e 100 opérations d’encaissement, 

° 20 virements automatiques ou retraits directs, 


e 20 transferts de compte à compte. 


Vous constaterez peut-être que l'exécution du programme ralentit 
lorsque vous approchez des limites. C’est parce que des calculs sont 
effectués fréquemment afin de libérer de la place en mémoire pour 
la manipulation des variables — ce qu'on appelle le passage du 
‘’ramasse-miettes’’ qui récupère de l’espace mémoire. Il vaut donc 
mieux rester en dessous des limites. Il existe un sous-programme qui 
permet de transférer les données constantes, et les balances de clô- 
ture d’une période deviendront les balances d'ouverture de la période 
suivante. 

Lorsque vous serez familiarisé avec le programme, vous vous aper- 
cevrez peut-être qu'il vous faut davantage de catégories de paiement 
(par exemple), mais que vous n'utilisez jamais plus de trois catégo- 
ries d’encaissement. Vous devez absolument modifier le programme 
pour réduire les limites et donner aux variables les valeurs maxima- 
les qui vous conviennent. Le programme est conçu pour faciliter ce 
genre de modifications. Reportez-vous au chapitre suivant, qui vous 
dira quelles sont les lignes à changer. 


OPTION 1 — COMPTES 


Dans le contexte de ce programme, un compte peut être un compte 
courant bancaire, un compte de dépôt, un compte de virements, un 
compte de carte de crédit, etc. Si vous utilisez une carte de crédit, 
vous préférez peut-être conserver uniquement les enregistrements 
de votre compte courant, et considérer comme paiements les chèques 
envoyés à la compagnie chez laquelle vous avez une carte de crédit. 
(Même si cela exige un peu plus de travail, nous trouvons plus pratique 
de conserver les traces du solde et des opérations relatives à la carte 
de crédit, et c'est pourquoi nous la considérons comme un compte ; 
par conséquent, si un chèque est tiré sur le compte courant afin d'ali- 
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menter le compte de la carte de crédit, cela constituera un transfert 
et non un paiement.) 

L'objectif d’un programme comme celui-ci est de vous permettre 
de gérer vos affaires de la manière qui vous convient le mieux, et 
non pas de vous obliger à suivre une démarche qui vous est totale- 
ment étrangère. Testez le programme pour découvrir la méthode qui 
vous semble la mieux adaptée ! 


Choisissez l'option COMPTES ; 7 options mineures vous sont alors 
proposées : 


ETAT DES SOLDES 

AJOUTS 

LISTE DES NOMS 
SUPPRESSION 

REPORT 

AJUSTEMENT D'OUVERTURE 
RETOUR AU MENU PRINCIPAL 


Comptes : option secondaire 1 — État des soldes 


Affiche tous les comptes avec les soldes d'ouverture, les dépen- 
ses, les recettes, les transferts et les soldes de clôture. Cette option 
exige un écran de 80 colonnes. Elle est fréquemment demandée ! 
Comptes : option secondaire 2 — Ajouts 


Permet d'ajouter un nouveau compte. Il suffit d'entrer le nom du 
nouveau compte, qui peut avoir une longueur maximale de 20 
caractères. 


Comptes : option secondaire 3 — Liste des noms 


Les noms de tous les comptes sont affichés. 


Comptes : option secondaire 4 — Suppression 


N'importe quel compte peut être supprimé. Cependant, si vous sup- 
primez un compte non soldé, vos calculs seront faussés ; cette option 
doit être très rarement demandée. 


Comptes : option secondaire 5 — Report 


Lorsque vous avez terminé un fichier pour une période particu- 
lière et que vous désirez passez à la période suivante parce que le 
nombre de vos données approche de la limite permise par le pro- 
gramme, utilisez cette option, qui : 


e calcule le solde de chaque compte, afin de le reporter comme solde 
d'ouverture sur la période suivante ; 

e efface tous les détails concernant les dépenses, les recettes et les 
transferts de l’ancienne période. 


Les données constantes, en particulier les noms des comptes, les 
catégories et les méthodes de paiement, les catégories et méthodes 
d'encaissement et les virements automatiques, sont conservées ; il 
n’est donc pas nécessaire de les entrer à nouveau lorsque vous enta- 
mez une nouvelle période. 

Notez bien que cette option ne crée pas un nouveau fichier ; il vous 
faudra encore sauvegarder les données de la nouvelle période avant 
de quitter le programme. Bien entendu, il vous aura fallu sauvegar- 
der les données de l’ancienne période avant de demander cette option 
secondaire. 


Comptes : option secondaire 6 — Ajustement d'ouverture 


Il vous faudra donner le solde d'ouverture de tous les comptes exis- 
tants lorsque vous exécuterez le programme pour la première fois, 
car il y a peu de chances qu'il soit à zéro. Bien entendu, pour les 
périodes suivantes, les soldes d'ouverture ne seront pas créés avec 
cette option mais en reportant les soldes de la période précédente, 
grâce à l'option secondaire n° 5. 

Si vous avez choisi l'option secondaire 5 pour reporter les soldes 
d'une période précédente et que vous découvrez ensuite une erreur 
(commise durant cette période précédente) qui vous oblige à modi- 
fier les données, vous pouvez utiliser cette option pour réaliser un 
ajustement du solde et corriger les effets de cette erreur. 


Comptes : option secondaire 7 — Retour au menu principal 


Cette option efface la flèche située devant la colonne des options 
secondaires et vous renvoie devant le menu des options majeures 
(colonne gauche). 
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OPTION 2 — RECETTES 
Il y a 11 options mineures : 


AJOUT 

SUPPRESSION 

LISTE 

RECAPITULATIF 

LISTE DES CATEGORIES 
AJOUT DE CATEGORIE 
SUPPRESSION DE CATEGORIE 
LISTE DES METHODES 
AJOUT DE METHODE 
SUPPRESSION DE METHODE 
RETOUR AU MENU PRINCIPAL 


Recettes : option secondaire 1 — Ajout 


Vous pouvez stocker jusqu’à 100 recettes (au maximum). Les don- 
nées seront sans doute reprises d’un carnet à souche ou des avis de 
crédit. Les recettes sont enregistrées un compte après l’autre. 

Le programme vous demande le nom du compte. Entrez la pre- 
mière lettre du compte ; si elle est valable, le nom complet du compte 
est affiché. Vous pouvez alors entrer jusqu'à 16 recettes ; pour 
chacune, les données seront : 


e La date, au format JJMMAA. Après l'entrée de la première ligne, 
le programme enregistre la date, et il la prendra de nouveau, par 
défaut, si vous tapez simplement ENTER par la suite. 


e Un identificateur d'opération. Sa longueur maximale est de 3 carac- 
tères alphanumériques, mais vous pouvez l’omettre en tapant sim- 
plement ENTER. 


e Le montant. Sa valeur maximale peut être de #32767 (plus 2 déci- 
males), ce qui devrait suffire pour la plupart d'entre nous. 


+ La catégorie. Elle vous permet d'analyser vos recettes sur une 
période donnée. Vous pouvez leur assigner des titres comme 
SALAIRE, INTERETS, CADEAUX (si vous êtes chanceux !), REM- 
BOURSEMENTS D'IMPOT (tout le monde peut rêver), etc. Bien 


entendu, vous ne pourrez pas utiliser cette option tant que vous 
n'aurez pas sélectionné et fourni les catégories au programme grâce 
à l'option secondaire n° 6. Les catégories sont identifiées par les 
deux premières lettres de leur nom. 


16 entrées devraient suffire à la plupart des utilisateurs, mais si vous 
désirez en enregistrer davantage, l'écran s’effacera et vous pourrez 
continuer. Si vous remplissez les 100 emplacements prévus, le pro- 
gramme vous informera qu'il n’y a plus de place et vous pourrez alors 
utiliser une autre option secondaire pour reporter toutes les données 
sur une nouvelle période. 

Notez bien que si vous faites une erreur en entrant des données, 
vous pouvez revenir en arrière dans le champ et effectuer les cor- 
rections en utilisant la touche flèche (flèche pointant vers la gauche) 
ou la touche DEL. Si vous remarquez une erreur après avoir pressé 
ENTER mais avant d’avoir terminé la ligne, vous pouvez presser ENTER 
quand le programme vous demandera une catégorie où un montant, 
et le système reviendra en arrière et vous replacera dans le champ 
précédent. Si vous remarquez seulement l'erreur une fois la ligne ter- 
minée, vous devrez vous servir de l'option SUPPRESSION pour annu- 
ler cette entrée, puis revenir à l'option AJOUT pour enregistrer cor- 
rectement les données. 

Vous désirerez sans doute entrer les données par ordre chronolo- 
gique, mais ce n’est pas obligatoire. 


Recettes : option secondaire 2 — Suppression 


Utilisez cette option pour supprimer une ligne de recette erronée. 
Vous pouvez vérifier la liste des recettes en vous servant des touches 
flèches (‘‘montante’”” et ‘’descendante’’) pour vous déplacer sur la 
page, ou bien la flèche gauche et la touche ENTER pour passer à la 
page précédente ou à la page suivante. Lorsque la flèche se trouve 
devant l'entrée que vous souhaitez annuler, tapez S ou s et l'entrée 
sera aussitôt supprimée. Ne vous trompez pas ! 

Pressez la touche CLR pour retourner au menu. 


Recettes : option secondaire 3 — Liste 


Utilisez cette option pour lire l’ensemble des recettes. Reportez- 
vous aux instructions de l'option secondaire n° 2 pour vous déplacer 
dans la liste. 


Recettes : option secondaire 4 — Récapitulatif 


Cette option analyse toutes vos recettes de la période courante, 
par catégories, et en donne la liste. 


Recettes : option secondaire 5 — Liste des catégories 


Utilisez cette option pour retrouver toutes les catégories que vous 
avez sélectionnées (15 au maximum). 


Recettes : option secondaire 6 — Ajout de catégorie 


Cette option permet d'ajouter une nouvelle catégorie de recettes. 
Les deux premiers caractères du nom doivent être spécifiques à la 
catégorie entrée ; votre sélection sera rejetée si ces caractères cons- 
tituent déjà le début du nom d’une autre catégorie. C’est parfois un 
peu gênant, mais cela offre un avantage certain pour mémoriser les 
codes sans avoir à utiliser des numéros (comme 1 pour SALAIRE, 2 
pour INTERETS, etc.) que l’on oublie toujours. 


Recettes : option secondaire 7 — Suppression de catégorie 


Vous pouvez supprimer à tout moment une catégorie de recettes, 
mais vos calculs seront faussés si vous annulez une catégorie utilisée 
par le programme (c’est-à-dire contenant des données). Demandez 
d’abord l'option secondaire 5 pour vérifier le statut de la catégorie 
en question. 


Recettes : option secondaire 8 — Liste des méthodes 


Vous pouvez choisir de différencier les diverses méthodes d’encais- 
sement. Cela peut être utile pour des vérifications ultérieures. Quel- 
ques exemples de méthodes : CARNET À SOUCHE n° 1, AJUSTE- 
MENT, VIREMENT AUTOMATIQUE. Bien entendu, si vous ne dési- 
rez pas profiter pleinement de cette option, il vous suffit de créer une 
seule méthode intitulée DIVERS ! 


Recettes : option secondaire 9 — Ajout de méthode 


Vous pouvez définir 10 méthodes d’encaissement au maximum. 
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Recettes : option secondaire 10 — Suppression de méthode 


Prenez garde de ne pas annuler une méthode utilisée par le 
programme. 


Recettes : option secondaire 11 — Retour au menu principal 


Vous quittez l’option RECETTES et retournez au menu principal. 


OPTION 3 — DÉPENSES 


Il y a également 11 options secondaires, comme pour l'option 
RECETTES : 


AJOUT 

SUPPRESSION 

LISTE 

RECAPITULATIF 

LISTE DES CATEGORIES 
AJOUT DE CATEGORIE 
SUPPRESSION DE CATEGORIE 
LISTE DES METHODES 
AJOUT DE METHODE 
SUPPRESSION DE METHODE 
RETOUR AU MENU PRINCIPAL 


mais vous entrerez sans doute plus de dépenses que de recettes, et 
il vous faudra certainement spécifier davantage de catégories et de 
méthodes. 


Dépenses : option secondaire 1 — Ajout 


Vous pouvez entrer un maximum de 150 dépenses. Les questions 
du programme seront identiques à celles de l'option RECETTES. Le 
numéro d'opération (optionnel) sera sans doute utilisé pour conserver 
les trois derniers chiffres du numéro de chèque et vous sera d’une 
aide précieuse pour vérifier vos comptes. 


Dépenses : option secondaire 2 — Suppression 


Utilisez cette option pour annuler une dépense entrée par erreur. 
Voir l'option équivalente de RECETTES. 
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Dépenses : option secondaire 3 — Liste des dépenses 
Voir l'option équivalente de RECETTES. 


Dépenses : option secondaire 4 — Récapitulatif 


Voir l'option équivalente de RECETTES. 


Dépenses : option secondaire 5 — Liste des catégories 


Utilisez cette option pour retrouver les catégories que vous avez 
spécifiées. Un maximum de 30 catégories est autorisé. Vous aurez 
certainement plus de catégories de dépenses que de catégories de 
recettes. Voici quelques exemples de catégories typiques : AUTO- 
MOBILE, ORDINATEUR, EAU, GAZ, ELECTRICITE, INTERETS, HYPO- 
THEQUES, MENAGE, VACANCES, etc. Notez bien que les deux pre- 
mières lettres de chaque catégorie doivent constituer un code unique. 
Vous ne pouvez donc pas avoir simultanément deux postes comme 
CHauffage et CHarges sociales (dans ce cas, entrez plutôt ‘CS — 
charges sociales”). En général, il n’est pas difficile de trouver un autre 
nom. 


Dépenses : option secondaire 6 — Ajout de catégorie 


Voir l’option équivalente de RECETTES. 


Dépenses : option secondaire 7 — Suppression de catégorie 


Voir l'option équivalente de RECETTES. 


Dépenses : option secondaire 8 — Liste des méthodes 


Exemples de méthodes typiques : CHEQUE, INTERET, RETENUE 
A LA SOURCE, VIREMENT AUTOMATIQUE. 

Notez que si vous sélectionnez l'option VIREMENT AUTOMATIQUE 
(voir plus loin), vous devez également créer une méthode de paie- 
ment intitulée VIREMENT AUTOMATIQUE, car cette option place 
les dépenses dans la catégorie dont le code est ‘’VI”. 

Un maximum de 20 méthodes est autorisé. 


Dépenses : option secondaire 9 — Ajout de méthode 
Voir l'option équivalente de RECETTES. 
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Dépenses : option secondaire 10 — Suppression de méthode 


Voir l'option équivalente de RECETTES. Une fois encore, prenez 
garde de ne pas supprimer une méthode utilisée par le programme. 


Dépenses : option secondaire 11 — Retour au menu principal 


Vous quittez l'option DEPENSES et retournez au menu principal. 


OPTION 4 — TRANSFERTS 


L'option TRANSFERTS est utilisée pour enregistrer les transferts entre 
deux de vos comptes, qui ne constituent pas des dépenses ni des recet- 
tes, car ils n’affectent pas le solde total, mais précisent simplement 
où se trouve votre argent. Un maximum de 20 transferts est autorisé 
pour une période donnée. 

Les options secondaires sont les suivantes : 


LISTE 

AJOUT 

SUPPRESSION 

RETOUR AU MENU PRINCIPAL 


Transferts : option secondaire 1 — Liste 

Affiche la liste de tous les transferts effectués durant la période en 
cours, sur un écran de 80 colonnes. 
Transferts : option secondaire 2 — Ajout 

Lorsque vous ajoutez un nouveau transfert, le programme vous 


demande : 


e ‘Compte débité ?’’ Vous donnez le nom du compte sur lequel le 
montant est tiré. Vous pouvez, par exemple, placer de l’argent sur 
votre carte de crédit afin de l’alimenter ; dans ce cas, le compte 
débiteur sera sans doute le compte courant bancaire. 


e La date(jmmaa). La date de la première entrée peut ensuite être 
prise par défaut. 
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e Un numéro d'opération (optionnel). Vous pouvez indiquer les trois 
derniers chiffres du numéro de chèque, ou toute référence qui vous 
convient. 


e Le montant. 


e ‘Compte crédité ?”” Le nom du compte sur lequel l’argent est placé. 


Une fois de plus, vous avez la possibilité de revenir en arrière pour 
corriger des erreurs, si vous les découvrez avant d’avoir fini de taper 
la ligne. 


Transferts : option secondaire 3 — Suppression 


Utilisez cette option pour corriger toute erreur commise lorsque 
vous ajoutiez des transferts (avec l'option précédente). 


Transferts : option secondaire 4 — Retour au menu principal 


Vous quittez l'option TRANSFERTS et vous pouvez sélectionner une 
nouvelle option principale. 


OPTION 5 — VIREMENTS AUTOMATIQUES 


Cette option est utilisée à la fois pour les virements automatiques 
et pour les retraits directs. Elle ne concerne que les dépenses et n’a 
pas d'équivalent pour les recettes, car la plupart des gens n’ont en 
général qu'une seule recette régulière — leur salaire. 


Le fichier des virements automatiques ne constitue qu'un fichier- 
mémorandum, rien ne se passe tant que vous n'avez pas utilisé 
l'option mineure CONFIRMATION, qui utilise les informations rela- 
tives au virement pour effectuer le paiement. 


Dans ce fichier, il n’est pas nécessaire que le mois soit donné pour 
chaque entrée. Par exemple, si un virement doit être effectué le 16 
de chaque mois, donnez la date 1600 (c’est-à-dire 00 pour le mois). 
Rien ne sera affiché ultérieurement à l'emplacement du mois, mais 
vous saurez qu'il s’agit d’un paiement mensuel. Dans le cas d’un vire- 
ment annuel, vous devez entrer la date complète. 
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Les options secondaires sont : 


LISTE 

AJOUT 
SUPPRESSION 
CONFIRMATION 
RETOUR AU MENU 


Virements automatiques : option secondaire 1 — Liste 


Vous pouvez donner un maximum de 20 virements automatiques 
ou retraits directs. Souvenez-vous que l'existence d’un virement dans 
la liste ne signifie pas que le paiement est fait automatiquement. Il 
n’est fait que lorsque vous le validez avec l'option CONFIRMATION. 


Virements automatiques : option secondaire 2 — Ajout 


Utilisez cette option pour ajouter un nouveau virement. Reportez- 
vous à ‘’Option 5 — Virements automatiques” pour les instructions 
concernant l'entrée de la date. 


Virements automatiques : option secondaire 3 — Suppression 


Utilisez cette option pour supprimer un virement. Cela n’affectera 
pas les paiements qui ont déjà été effectués quand ce système de vire- 
ment automatique était en fonction. 


Virements automatiques : option secondaire 4 — Confirmation 


Vous devriez examiner les virements automatiques une fois par mois 
pour les confirmer. C'est seulement au moment de la confirmation 
qu’une opération est réellement effectuée. Lorsque vous utilisez cette 
option, vous avez la possibilité de corriger le montant du virement, 
qui varie parfois très légèrement. 


Virements automatiques : option secondaire 5 — Retour au menu principal 


Utilisez cette option pour retourner au menu principal. 
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OPTION 6 — FIN 


Vous sélectionnez cette option principale lorsque vous avez ter- 
miné votre session de travail et que vous désirez quitter le programme. 
Si vous avez simplement relu les données sans rien modifier, vous 
pouvez quitter directement le programme ; mais si vous avez effec- 
tué le moindre changement, le programme ne vous lâchera pas tant 
que vous n'aurez pas inséré une cassette dans le lecteur et sauve- 
gardé le fichier. 

Évidemment, n’enregistrez pas par-dessus vos plus récents fichiers ! 
Si l'enregistrement se faisait mal (pour une raison quelconque), vous 
perdriez de précieuses informations. Conservez vos données sur plu- 
sieurs cassettes ; les cassettes C12 ne sont pas bien chères. 
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19 
COMPTABILITÉ PERSONNELLE — COMMENTAIRE 


Le programme de comptabilité personnelle est écrit de manière a 
être assez facilement compris et modifié. Comme il s’agit d’un long 
programme, et qu’il est destiné à traiter de très nombreuses données 
en mémoire, il doit être écrit dans un style condensé, avec très peu 
de remarques, et contenant souvent plusieurs instructions sur une 
même ligne. Ce chapitre décrit le programme. 

Le programme principal est court et va de la ligne 5 à la ligne 999. 
L'interruption (BREAK) est inhibée pour éviter toute perte de données. 
Vous pouvez toujours débrancher la prise d'alimentation. 

L'initialisation se fait aux lignes 1000 à 1999. Testez les couleurs 
en modifiant les lignes 1010 à 1020. Vous pouvez changer les valeurs 
maximales en altérant les instructions des lignes 1100 à 1180. 

Si vous souhaitez envoyer une chaîne d'initialisation vers l'impri- 
mante, placez l'instruction dans cette zone du programme. 

Le fichier est chargé par les lignes 2000 à 2499 et sauvegardé par 
les lignes 2500 à 2999. Bien entendu, toute modification du format 
des données doit être ‘’répercutée’”’ dans les autres sous-programmes. 

Le format de la date est JMMAA (Jour/Mois/Année). Notez bien 
que les dates ne sont pas vérifiées ; vous pouvez indiquer le 31 février 
si vous y tenez. Dans un programme commercial, les vérifications 
seraient beaucoup plus sévères. 

Le menu est présenté par les lignes 3000 à 3999. Remarquez l’uti- 
lisation qui est faite des fenêtres (grâce au BASIC de l’Amstrad) pour 
faciliter le déplacement des flèches et l'affichage des listes d'options. 

Le sous-programme 4000 efface l'écran. Cette opération est effec- 
tuée par un sous-programme pour que la variable LN, utilisée par- 
fois comme compteur de lignes, puisse être remise à zéro. 

4100 affiche le message ‘’Pressez ENTER pour continuer’’ sur la der- 
nière ligne de l’écran et attend la frappe d’une touche. 

4200 place l'écran en mode 2 (80 colonnes). La valeur 80 est stockée 
dans SCRWIDTH, qui est utilisé par les sous-programmes pour centrer 
les titres. 
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4300 remet l'écran en mode 1 (40 colonnes). 

4400 demande à l'utilisateur s'il veut envoyer les données vers 
l'écran ou vers l'imprimante, et donne une valeur à l'indicateur en 
fonction de la réponse de l'utilisateur. 

4500 vérifie la ‘‘fin de page”, sur l'écran ou l'imprimante. 

4600 fait avancer le papier si les données sont envoyées vers 
l'imprimante. 

4700 installe les fenêtres. 

4800 prépare l'écran pour l'affichage des données. 

4900 prépare l'imprimante pour l'impression des données. 

5000 effectue un branchement vers la fonction appropriée selon 
la sélection de l'option principale (Y2) et de l'option secondaire (Y3). 

6000 affiche la liste des noms de comptes. Il faudra modifier ce sous- 
programme si vous augmentez trop le nombre des comptes ; envi- 
ron 16 comptes peuvent être affichés simultanément sur l'écran. 

6500 permet d'ajouter un nouveau compte. Remarquez qu’une 
variable UPDATED est redéfinie lorsqu'un nouveau compte a été 
ajouté. Tous les sous-programmes qui modifient les données (AJOUT, 
SUPPRESSION, CONFIRMATION) altèrent la valeur de cet indicateur 
pour que le système puisse savoir si un fichier doit être enregistré 
lorsque vous avez terminé votre session de travail. 

7000 supprime un compte. Des instructions pourraient être ajou- 
tées afin de calculer le solde de clôture et de rejeter la demande de 
suppression si ce solde est différent de zéro, mais ce n’est pas vrai- 
ment nécessaire dans un programme de comptabilité personnelle. 
Après tout, nous n'avons pas ici à craindre le comptable, et nous 
n'avons aucune raison de tricher ! 

7500 calcule et affiche le solde de chaque compte. Ces opérations 
sont réalisées assez rapidement, même lorsqu'il y a un grand nombre 
de données. 

8000 est le sous-programme général d'entrée des informations ; vous 
le trouverez souvent bien utile. Il attend l'entrée des paramètres 
suivants : 


A Le type de données attendues. Peut avoir pour valeur 1 (A-Z, 
a—7, espace, guillemets et trait d'union uniquement), 2 (nombre 
compris entre +32767 et —-32768), 3 (n'importe quel caractère 
affichable), 4 (le caractère doit être contenu dans la chaîne X2$), 
ou 5 (nombre dépassant les limites précédentes et utilisé prin- 
cipalement pour les dates). 


2,168 = 


L Longueur maximale autorisée. N'est pas utilisé pour T=4, qui 
n'attend toujours qu’un seul caractère. 


X3$ Valeur par défaut (optionnelle). Si la valeur de X3$ est définie, 
elle est affichée ; si l’utilisateur presse ENTER, la valeur de X3$ 
est prise par défaut, mais si l'utilisateur presse n'importe quelle 
autre touche, la valeur par défaut est perdue et une nouvelle 
donnée doit être entrée. 


Le sous-programme efface le contenu de X3$, et cette valeur 
doit être redéfinie chaque fois que le sous-programme est 
appelé. 


XE$ Pour T=4 uniquement. Une chaîne de caractères autorisés. 
L'entrée de n'importe lequel de ces caractères mettra un terme 
à l'exécution du sous-programme. 


Les données entrées sont retournées comme ceci : 


SiT=-1 Données dans X1$, longueur dans Z0. 

SiT-2 Données dans ZO et dans X1$. 

Si T=3 Données dans X1$, longueur dans Z0. 

SiT-4 La position du caractère de X2$ est retournée dans ZO. 
Si T=5 Données dans X1$, longueur dans 20. 


Si l'utilisateur presse la touche CLR au cours de l'entrée des données 
(CLR est utilisé ici à la place de ESC, car ESC est intercepté par le 
BASIC), les opérations suivantes sont effectuées : 


e l'information déjà entrée est annulée ; 
e l'information affichée à l'écran est effacée ; 
e T prend la valeur —5. 
CLR représente donc la voie d'échappement normale. 
Notez que le sous-programme utilise et peut modifier les valeurs 
de X, Ÿ, X1$, ZO, X35 et Z$. 
9000 à 9499 ajoute une dépense ou une recette. Les dépenses et 


les recettes utilisent des sous-programmes communs, car les séquences 
de traitement sont généralement les mêmes. Notez que les traces des 
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opérations sont enregistrées, d’une manière économique, dans des 
chaînes de 21 octets ayant le format : 


Ammddddnnnaaaaaaaaacc 


qui se décompose ainsi : 


A = code du compte 

mm = code de la méthode de paiement 
dddd = date (jmm ou jour/mois) 

nnn = code de l'opération 

aaaaaaaaa = montant 

cc = code de la catégorie de dépense 


9500 à 9999 est le sous-programme permettant de supprimer l’opé- 
ration de paiement où d’encaissement. 

10000 à 10999 est le sous-programme qui gère les erreurs et les 
interruptions. 

11000 à 11299 s'occupe de l'affichage des opérations (paiements 
ou encaissements). || y a un sous-programme en 11300 qui s'occupe 
de l'affichage proprement dit et qui peut être également appelé par 
le sous-programme de suppression. Le sous-programme d'affichage 
est conçu pour permettre la consultation page à page (avec avance 
ou retour arrière). 

11500 à 11999 permet d'établir un récapitulatif des dépenses et 
des recettes. 

12000 à 12499 donne la liste des catégories de paiement (2 par 
ligne). 

12500 à 12999 ajoute une nouvelle catégorie de dépenses ou de 
recettes tandis que 13000 à 13499 supprime une catégorie. 

13500 à 13999 donne la liste des méthodes (2 par ligne, ici aussi), 
alors que 14000 à 14499 ajoute une nouvelle méthode et que 14500 
à 14999 supprime une méthode. 

15000 à 15499 donne la liste des virements automatiques, 15500 
à 15999 ajoute un nouveau virement automatique et 16000 à 16499 
en supprime un. 16500 à 16999 confirme un ordre de virement et 
ajoute une opération de paiement. 
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Les virements automatiques sont contenus dans le tableau SO$( 
dont les éléments se présentent sous ce format : 


Addddaaaaaaaaacc 


qui se décompose ainsi : 


A = code du compte 

dddd = date (jjmm) ; la valeur de mm peut être nulle 
aaaaaaaaa = montant 

éc - code de la catégorie 


Les opérations de transfert sont prises en compte par le sous- 
programme 17000 à 17499, qui en donne la liste ; le sous-programme 
17500 à 17999 ajoute un transfert, le sous-programme 18000 à 18499 
en supprime un. 

Le sous-programme 18500 effectue le report sur une nouvelle 
période et le sous-programme 19000 s'occupe de l'ajustement des 
soldes d'ouverture. 

Les transferts sont stockés dans le tableau XFER$() sous ce format : 


FddddxxxaaaaaaaaaT 


qui se décompose ainsi : 


F = code de compte débité 

dddd = date (jmm) 

XXX = numéro d'opération (optionnel) 
aaaaaaaaa = montant 

T = code de compte crédité 


S ON BREAK GOSUB 10020 

10 REM PROGRAMME COMPTA PERSONNELLE 
20 REM COPYRIGHT (C) 1984 JOHN BRAGA 
50 ON ERROR GOTO 10000 

40 GOSUB 1000 

50 GOSUB 2000 

640 GOSUB 3000 

65 IF Y2=CHOICES THEN 10 

70 GOSUB 5000 

80 GOTO 60 

100 IF UPDATED THEN GOSUB 2500 

110 GOSUB 4000 

999 END 
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1000 REM INITIALISATION 
1005 DEFINT 1,5,X 

1010 BKCOL=0: INCOL=2: PENCOL=26: TITLECOL=20 

1020 MODE 1:BORDER BKCOL:INK O,BKCOL:INK 1,PENCOL:INK 2,INCOL: INK 3 
,TITLECOL: PAPER O:PEN 1 

1025 SCRWIDTH=40:ESC-16 


1040 EHH#=CHR# (8) : SIGN#="-->":LFT#$="CHRE (242) : UP#$=CHR# (240) : DOWN$=CH 
R#$(241):ENTER#=CHR# (13) : CLEOSC#=CHRS$ (20) : CLEOL#=CHR# (18) : HEL#=CHR# ( 
7) 


1050 TRUE=-1 : FALSE=0 

1060 PRLENGTH=66: PRLINES=60:SCRLINES=16 

1070 GOSUB 4700: SCREEN=TRUE 

1100 ACCOUNTS-=-0:MAXAC=10:DIM BALO(MAXAC) , BALC (MAXAC) , ACNAME# (MAXAC) 
1110 RECCATS=O:MAXRECCATS=15:DIM RECCATS$ (MAXRECCATS) 

1120 PAYCATS=0:MAXPAYCATS=30: DIM FAYCAT# (MAXPAYCATS) 

1130 PAYMETHS=0:MAXPAYMETHS=20: DIM PAYMETHE (MAXPAYMETHS) 

1140 RECMETHS=O: MAXRECMETHS=10:DIM RECMETHS$ (MAXRECMETHS) 

1150 PAYS=0O:MAXPFAYS=150: DIM PAY$(MAXPAYS) 

1160 RECS=0:MAXRECS=-100:DIM REC+$ (MAXRECS) 

1170 S0OS=0:MAXSOS-20: DIM S0O$(MAXS0S) 

1180 XFERS=O:MAXXFERS=20: DIM XFER# (MAXXFERS) 

1999 RETURN 

2000 REM CHARGEMENT 

2010 X$="COMPTBILITE PERSONNELLE":Y=3:GOSUB 4050 

2025 LOCATE 9,12:PRINT "Date (jjimmaa) ";3:T=5:L=6:GOSUB 8000:IF ZO<> 
6 THEN 2025 ELSE DATE$=LEFT#(X1#,2)+"/"4+MID#(X1#,3,2)+"/"+RIGHT#(X1 












$,2) 
2030 LOCATE 9,14:FRINT "Nom du fichier “";:T=3:L1=16:GOSUB 8000:1IF X1 
$="" THEN 2050 ELSE F#=UPFERS#$(X1#) 


2040 LOCATE 5,16:PRINT "Ce fichier existe-t-i17 (O/N) ";3:T=1:L=1:60 
SUB 8000 

2050 X1$=UPPERS (X14#) 

2060 ID X1$="N" THEN 2499 ELSE IF X1#<>"O" THEN 2040 

2100 LOCATE 1,18:PRINT “Chargement de la cassette" 

2110 OPENIN F$ 

2120 INPUT #9,X$,F#$,ACCOUNTS , PAYS ,RECS,S0S, XFERS , PAYCATS ,RECCATS, PA 
YMETHS ,RECMETHS 

2130 FOR ZO=1 TO ACCOUNTS: INFUT #9,ACNAMES# (Z0) ,BALO(ZO):NEXT 20 
2140 FOR ZO=1 TO FAYS: INPUT #9,PAY#(ZO):NEXT ZO 

2150 FOR ZO=1 TO RECS: INPUT #9,REC#(ZO):NEXT ZO 

2160 FOR ZO=1 TO S0S:INPUT #9,S0$(Z0):NEXT ZO 

2170 FOR ZO=1 TO XFERS: INPUT #9,XFER#$(ZO):NEXT ZO 

2180 FOR ZO=1 TO PAYCATS: INPUT #9,PAYCAT#(ZO):NEXT ZO 

2190 FOR Z0=1 TO RECCATS: INPUT #9,RECCAT#(ZO):NEXT ZO 

2200 FOR ZO0=1 TO PAYMETHS: INPUT #9,PAYMETHS# (ZO0) :NEXT ZO 

2210 FOR Z0=1 TO RECMETHS: INPUT #9,RECMETHS# (ZO) :NEXT ZO 

2290 CLOSEIN 

2499 RETURN 

2500 REM ECRITURE 

2510 GOSUB 4000:X+$="COMPTABILITE":Y=1:GOSUE 4050 

2520 LOCATE 1,7:PRINT "Nom du nouveau fichier ";:X3$-F#:T=3:L=16:6G0 
SUEH 8000 

2525 IF X1#="" THEN 2520 THEN F#=X1# 

2530 OPENOUT F# 

2540 WRITE #9,DATE#,F#,ACCOUNTS, PAYS ,RECS, 505, XFRES, PAYCATS ,RECCATS 
, FPAYMETHS ,RECMETHS 

2550 FOR Z0=-1 TO ACCOUNTS:WRITE #9,ACNAMES# (Z0) ,BALO(ZO):NEXT 7ZO 
2560 FOR Z0=1 TO FAYS:WRITE #9,PAY#(ZO):NEXT ZQ 

2570 FOR ZO0=1 TO RECS:WRITE #9,REC#(ZO):NEXT ZO 

2580 FOR ZO=1 TO SOS:WRITE #9,S0#(Z0):NEXT ZO 

2590 FOR Z0=1 TO XFERS:WRITE #9,XFER#(ZO):NEXT ZO 

2600 FOR ZO0=1 TO FAYCATS:WRITE #9,FAYCAT#(ZO):NEXT Z0 

2610 FOR Z0=1 TO RECCATS:WRITE #9,RECCAT#(ZO):NEXT ZO 

2620 FOR ZO=1 TO PAYMETHS:WRITE #9,PAYMETH#(ZO):NEXT ZO 

2630 FOR ZO0=1 TO RECMETHS:WRITE #9,RECMETH#(ZO):NEXT ZO 

2640 UPDATED=FALSE 

2700 CLOSEOUT 

2999 RETURN 

ZO0O REM MENU 

GOSUB 4000:X#="COMFTABILITE":Y=1:GOSUB 4050 

CHOICES=6 

RESTORE 3055 
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LOCATE 5,7:FRINT "OPTIONS MAJEURES";TAER(25) ; "OPTIONS MINEURES" 
X2#=UF#F+DOUNS+ENTER#+CHR£ (ESC) : RESTORE 3055 
DATA COMPTES ,RECETTES ,DEFENSES, TRANSFERTS, VIREMENT AUTO,FIN 
CLS #1:IF Y2=0 THEN Y?2=1 
FOR ZO=1 TO CHOICES:READ X#:PRINT #1,X#:NEXT ZO 
CLS #2:LOCATE #2,1,Y2:PRINT #2,SIGN#; 
CLS #4:0ON VFOS(#Z) GOSUR 3300,3350,3400,3450,3500,3550 
IF Y3:0 THEN 3170 
T=4:L=0:GOSUE 8000 
ON ZO0 GOTO 3120,3140,3160,3545 
IF Y2-1 THEN Y2-CHOICES ELSE Y2=Y2-1 
GOTO 3080 
IF Y2=CHOICES THEN Y2=1 ELSE Y2=Y2+1 
GOTO 3080 
Y3=1 
IF SUBCHOICES-0 THEN 3900 
CLS #3:LOCATE #3,1,Y3:PRINT #3,SIGN$; 
T=4:L=0:GOSUB 8000 
ON ZO GOTO 3190,3200,3230,3220 
IF Y3=1 THEN Y3-SUBCHOICES ELSE Y3=Y3-1 
GOTO 3165 
IF Y3=SUBCHOICES THEN Y3=1 ELSE Y3=Y3+1 
GOTO 3165 
Y3=SUBCHOICES 
GOTO 3900 
RESTORE 3340: SUBCHOICES=7 
GOTO 3600 
DATA ETAT DES SOLDES,AJOUT,LISTE DES NOMS,SUPPRESSION,NOUV. PE 


RIODE , AJUSTEMENT OUV. ,RETOUR AU MENU 

3350 RESTORE 3390: SUBCHOICES=11 

3360 GOTO 3600 

3390 DATA AJOUT,SUPPRESSION,LISTE,RECAPITULATIF,LISTE CATEG. , AJOUT 
CATEG. ,SUP. CATEGORIE,LISTE METHODE ,AJOUT METHODE ,SUP. METHODE ,RETO 


UR AU MENU 

3400 RESTORE 3390: SUBCHOICES-=11 

3410 GOTO 3600 

3450 RESTORE 3490: SUBCHOICES=4 

3460 GOTO 3600 

3490 DATA LISTE ,AJOUT , SUPPRESSION ,RETOUR AU MENU 

3500 RESTORE 3540: SUBCHOICES=S 

3510 GOTO 38600 

3540 DATA LISTE ,AJOUT , SUPPRESSION, CONF IRMATION,RETOUR AU MENU 
3545 Y2=CHOICES 

3550 SUBCHOICES=0 

3600 FOR Z0=1 TO SUBCHOICES 

3610 READ X$:PRINT #4,X$ 

3620 NEXT Z0O 

3699 RETURN 

3900 REM 

3910 IF Y3=SUBCHOICES THEN CLS #3:Y3=0:GOTO0O 3050 

3999 RETURN 

4000 CLS:ELN=0O: RETURN 

4010 REM CENTRAGE 

4020 X=(SCRWIDTH-LEN(X1#))/2:X1=LEN(X1#) 

4030 LOCATE X,Y:PRINT X1$#; 

4049 RETURN 

4050 REM TITRE 

4060 X=(SCRWIDTH-2-LEN(X#) )/2:X1=LEN(X#) 

4062 IF SCREEN THEN 4070 

4064 PRINT #8,TAB(X+1) ; X$; TAB (SCRWIDTH-B) ; DATES 

4066 PRINT #8,TAB(X+1) ; STRING$(X1,"=") 

4068 FOR X1=3 TO 6:PRINT #8:NEXT X1:LN=6 

4069 GOTO 4099 

4070 LOCATE X,Y 

4080 PEN 3:PRINT CHRS$ (135) ; STRING$ (X1,CHR$ (131) ) ; CHR$ (139) 
4085 LOCATE X,Y+1::PRINT CHR$ (133) ; X$; CHR$ (138) ; TAB(SCRWIDTH-8) ; DAT 
E$ 

4090 LOCATE X,Y+2:PRINT CHR$(141) ; STRINGS$ (X1,CHR$ (140) ) ; CHR# (142); 
4099 PEN 1:RETURN 

4100 REM PAUSE 

4110 IF NOT SCREEN THEN 4199 

4120 PRINT #6,"Pressez ENTER ";:T=1:L-0:GOSUR 8000:CLS #6 
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4199 RETURN 

4200 REM MODE 2 

4210 MODE 2 

4220 SCRWIDTH=80 

4230 BORDER O: INK O,0:INK 1,26 

4240 GOSUB 4700 

4299 RETURN 

4300 REM MODE1 

4310 MODE 1 

4320 SCRWIDTH=40 

4330 BORDER BKCOL: INK O,BKCOL:INK 1,PENCOL 

4340 GOSUB 4700 

4399 RETURN 

4400 REM ECRAN/IMPRIMANTE 

4410 PRINT #6,"ECRAN OÙ IMPRIMANTE (E/1)?7"; 

4420 T=4:L=0:X2#-ENTER$+"Eeli":GOSUB 8000 

4430 ON ZO GOSUR 4800,4800,4800,4900,4900 

4499 CLS #6:LN=0:RETURN 

4500 REM PAGE 

4510 IF LN=LINES THEN GOSUB 4600 

4520 LN=LN+1 

4599 RETURN 

4600 REM SAUT 

4610 IF SCREEN THEN GOSUB 4100:CLS #5:GOT0O 4699 

4620 FOR LN=LN+1 TO PRLENGTH:PRINT #8:NEXT LN 

4699 LN=O:RETURN 

4700 REM FENETRES 

4710 WINDOW #1,5,20,10,25:WINDOW #2,1,4,10,25:WINDOW #3,21,24,10,25 
:WINDOW #4,25,40,10,25:WINDOW #5,1,80,8,23:WINDOW #6,1,80,25,25 
4799 RETURN 

4800 REM ECRAN 

4810 FRDEV1=0:PRDEV2=5:LINES-SCRLINES:CLS #5: SCREEN=TRUE : RETURN 
4900 REM IMPRIMANTE 

4910 PRDEV1=8:PRDEV2=8:LINES=FRLINES: SCREEN=FALSE : RETURN 
5000 REM BRANCHEMENT 

3010 ON Y? GOTO 5020,5100,5200,5300,5400,5500 

5020 REM OFTION 1 - COMPTES 

3070 ON YZ GOSUH 7500,6500,6000,7000,18500,19000 

5099 RETURN 

S100 REM OFTION 2? - RECETTES 

5110 PFAY=FALSE 

5120 GOTO 52190 

5200 REM OFTION 3 

5205 FAY=TRUE 

S210 ON Y3 GOSUB 9000,9500,11000,11500,12000,12500,13000,13500,1400 
0,14500 

5299 RETURN 

SI00 REM OPTION 4 

5310 ON Y3 GOSUE 17000,17500,18000 

5399 RETURN 

5400 REM OFTION 5 

5410 ON Y= GOSUR 15000,15500,16000, 186500 

5499 RETURN 

5500 REM OFTION 6 

6000 REM LISTE COMPTES 

6010 GOSUB 4400 

6020 GOSUR 4000:X#="NOMS DES COMPTES":Y=1:GOSUR 4050 

6030 FOR Z9=1 TO ACCOUNTS:GOSUB 4500:PRINT #PRDEV2,ACNAMES$ (29) 
6050 NEXT 29 

6060 GOSUB 4600 

6070 GOSUEB 4800 

6499 RETURN 

6500 KEM AJOUT COMPTE 

6510 GOSUB 4000:X#-="ADDITION NOUVEAU COMPTE":Y=1:GOSUB 4050 
6515 IF ACCOUNTS=MAXAC THEN PRINT #6,"PLUS DE NOMS POSSIBLES! PRESS 
EZ ENTER ";:T=1:L=0:GOSUB 8000:GOTO 6999 

6520 CLS #5 

6570 FOR ZO=1 TO ACCOUNTS 

6540 PRINT #5,ACNAMES#(ZO):NEXT ZO 





6600 CLS #6:PRINT #6, "Nouveau compte “;:LOCATE 16,25:T=1:L=20:G60OSU 
B 8000:CLS #6 
6610 IF X1$="" THEN 6999 ELSE X1$=UPPERS$(X1#) 
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6620 FOR Z0=1 TQ ACCOUNTS 

66530 IF LEFT$(X1#,1)=LEFT$(ACNAMES$ (720) ,1) THEN 6600 

6640 NEXT ZO 

6650 ACCOUNTS=ACCOUNTS+ 1 : UPDATED=TRUE : ACNAME#$ (ACCOUNTS) =X1$ 

6660 PRINT #5,X1# 

6670 IF ACCOUNTS<MAXAC THEN 6600 

6680 CLS #6:PRINT #6,"PLUS D'AJOUT POSSIBLE! PRESSEZ ENTER";:T=1:L= 
O:GOSUB 8000:CLS #6 

6999 RETURN 

7000 REM SUP COMPTE 

7010 GOSUB 4000:xX#$="SUPPRESSION DE COMPTE":Y=1:GOSUB 4050 

7020 CLS #5 

7050 FOR ZO=1 TO ACCOUNTS 

7040 PRINT #5,ACNAME#(ZO) 

7050 NEXT ZO 

7100 CLS #6:FRINT #6,"PREMIERE LETTRE DU COMPTE A SUPPRIMER"; :LOCAT 
E 335,25:T=1:L=1:GOSUB 8000 

7110 IF X1$="" THEN 7499 

7120 FOR ZO=1 TO ACCOUNTS:1IF UPPER$(X1$)=LEFT$ (ACNAMES#$ (20,1) THEN 7 
200 

7130 NEXT ZO 

7140 CLS #6:PRINT #6,"Ce compte n'existe pas! Pressez ENTER “;:T=1: 
L=0:GOSUB 8000:CLS #6:GO0OT0O 7100 

7200 IF BALO(ZO)=0O THEN 7300 

7210 CLS #6:PRINT #6,"IMPOSSIBLE DE SUPPRIMER UN COMPTE NON SOLDE. 
“3:T=1:L=0:GOSUB 8000:CLS #6:GOTO 7100 

7300 ACCOUNTS=ACCOUNTS-1 : UPDATED=TRUE 

7305 IF Z>ACCOUNTS THEN 7330 

7310 FOR Z=ZO TO ACCOUNTS: ACNAMES# (Z) =ACNAMES$ (Z+1) : BALO(Z)=BALO(Z+1) 
:NEXT Z 

7330 GOTO 7020 

7499 RETURN 

7500 REM SOLDE 

7505 IF ACCOUNTS=0O THEN 7990 ELSE GOSUB 4400 

7507 GOSUB 4200 

7510 X$="Soldes actuels":Y=1:GOSUB 4050 

7520 LOCATE 1,7:GOSUB 4500:PRINT #PRDEVI1,TAB(20);" OUVERTURE REC 
ETTES TRANSFERTS DEPENSES CLOTURE" 

7530 WO=0:TG=0: TS=0: TC=0 

7532 FOR ZO=1 TO ACCOUNTS 

7534 FOR Z1=1 TO XFERS:1IF LEFT$(XFERS$(Z1) ,1)=LEFT$ (ACNAMES$ (ZO) ,1) T 
HEN AX=AX-VAL(MID#(XFERS#$(Z1),9,9)) 

7536 IF RIGHT#(XFER$(Z1) ,1)=LEFT$ (ACNAMES# (ZO) ,1) THEN AX=AX+VAL (MID 
$(XFER$(Z1),9,9)) 

7538 NEXT Zi 

7542 FOR Zi=1 TO PAYS:1IF LEFT$(PAY$#(Z1) ,1)=LEFT$ (ACNAMES$ (70) ,1) THE 
N AS=AS+VAL(MID$ (PAY#(Z1),11,9)) 

7544 NEXT Zi 

7546 FOR Z1=1 TO RECS:IF LEFT$(REC$#(Z1) ,1)=LEFT$ (ACNAMES$ (Z0) ,1) THE 
N AG=AG+VAL (MID$ (REC$#(Z1),11,9)) 

7548 NEXT Zi 

7550 AO=BALO (70) : BALC (ZO0) =AO-AS+AX+AG: TS=TS+AS: TG=TG+AG: TC=TC+BALC ( 
Z0) : WO=WO+A0 

7560 GOSUB 4500:PRINT #PRDEV2,ACNAMES$ (20); TAB(21); 

7570 PRINT #PRDEV2,USING "######.##"; ABS (AD) ;:1F AD<O THEN PRINT #P 
RDEV2,"cr "3; ELSE PRINT #PRDEV2," "5 





7580 IF AG>0 THEN PRINT #PRDEV2,USING "H##H#H###.## ">AG;AG=0 ELSE P 
RINT #PRDEV2,SPACES# (12); 

7590 IF AX<>0 THEN PRINT #PRDEV2,USING "#H##H#H#.## “";AX;AX=0 ELSE 
PRINT HPRDEV2,SFACES# (12); 

7600 IF AS>0O THEN PRINT #FRDEV2,USING "H#HHHHH.H# “:AS;:AS=0 ELSE P 
RINT #PRDEV2,SPACE# (12); 

7610 PRINT #FRDEV2,USING "######. ##": ABS (BALC(Z0))3:I1F RALC(ZO)<0 T 


HEN PRINT #PRDEV2, "cr"; ELSE PRINT #PRDEVZ 
7620 NEXT Z0 

7630 GOSUR 4500:PRINT #PRDEV? 

7640 GOSUB 4500:FRINT HPRDEV2,"TOTAL"; TAB (21); 

7650 PRINT #PRDEV2,USING "######. ##": ARS (WO);:1F WO<O THEN FRINT #P 
RDEV2,"cr "3 ELSE PRINT #HPRDEV2," "3 

7660 PRINT #FRDEV2,USING "######.##  ":TG,0,TS: 

7670 PRINT #PRDEV2,USING "##H####.H##"; ABS(TC);:1F TC<O THEN PRINT #F 
RDEV2,"cr"; ELSE PRINT #PRDEVZ 
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7990 GOSUB 4600 
7999 GOSUE 4200:GOSUE 4800:RETURN 

8000 REM GET 

8005 REM T=1 (ALPHA) ,2 (NUMERIQUE) ,3 (N'IMPORTE) ,4(X2#) ,5 (NUM>32767) 
8010 Y=VPOS (HO) : X=POS (#0) 

8012 IF SCRWIDTH=80 AND L>O THEN PRINT EK$;"[C"; 

8020 PAPER 2:PRINT STRING$(1," "); 

8022 IF SCRWIDTH=80 AND L>O THEN PRINT " 
8023 LOCATE X,Y 

8025 IF X3$<>"" THEN PRINT X3$;:LOCATE X,Y 

8030 X1#="" 

8040 Z$=INKEY#:IF Z$="" THEN 8040 

8045 IF T=-4 THEN Z$-=UPPERS# (Z$):GOTO 8095 

8050 ZO=ASC(Z#) 

8060 IF Z0=-13 THEN 8992 

8070 IF ZO-ESC THEN 8990 

8080 IF LEN(X1#)>0O THEN IF ZO=-242 OR Z0=127 THEN 8800 
8090 IF LEN(X1$)=L THEN 8040 

8095 ON T GOTO 8100,8200,8300,8400,8200 

8100 REM ALPHA 

8105 IF ZO=32 OR Z0=-39 OR Z0=-45 THEN 8500 

8110 IF ZO<48 OR Z0>122 THEN 8040 

8120 IF Z0>57 AND ZO<65 THEN 8040 

8130 IF ZO0>90 AND Z0<97 THEN 8040 ELSE 8500 

8200 REM NUM 

8210 IF (Z0>=-45 AND ZO<58) AND ZO<>47 THEN 8500 ELSE 8040 
8300 REM N'IMPORTE 

8310 IF Z0<32 THEN 8040 ELSE 8500 

8400 REM X2$ 

8410 ZO=INSTR(1,X2#,Z#):1F ZO=-0 THEN 8040 ELSE 8999 

8500 PRINT Z$;:X1#=X1#+7$ 

8510 IF LEN(X1#)=1 THEN PRINT SPC(L-1);:LOCATE X+1,Y 

8520 GOTO 8040 

8800 REM BK 

8810 PRINT BK$+" "+BK$3;:X1#=-LEFT#(X1$,LEN(X1#)-—1) 

8820 GOTO 8040 








8990 T=-5:X1$="":X3$="":20-0:LOCATE X,Y:PRINT SPC(L);:GOTO 8999 
8992 IF X1$="" AND X3$<C>"" THEN X1#=X3$ 

8993 X3$-"" 

8995 IF T-2 THEN IF LEN(X1#)>0 AND X1#<>"." THEN ZO=VAL(X1$) ELSE Z 
o=0 


89986 IF T<>2 THEN ZO=LEN(X1#) 

8999 PAPER O:RETURN 

9000 REM AJOUT TRANS 

9005 IF PAY THEN TRANS=PAYS:MAXTRANS=MAXPAYS : METHS=PAYMETHS: CATS=PA 

YCATS:X$="Nouvelles dépenses" ELSE TRANS=RECS: MAXTRANS=MAXRECS : METH 
S=<RECMETHS: CATS=-RECCATS: X$="Nouvelles recettes" 

9007 IF METHS=-O OR CATS=0 OR ACCOUNTS=0 THEN 9499 

9010 GOSUEH 4000:Y=1:GOSUB 4050 

9012 IF TRANS=MAXTRANS THEN 9450 

9020 LOCATE 1,6:PRINT CLEOL#$+"COMPTE ";:T=3:L=1:GOSUB 8000:1IF X1#$=" 
“ THEN 9499 ELSE X1$=UPPERS#(X1#) 

9070 FOR ZO=1 TO ACCOUNTS:1IF LEFT#$(X1#,1)=LEFT#(ACNAMES$ (720) ,1) THEN 
9045 

9040 NEXT ZO:GOTO 9020 

9045 XO$-=-X1#+SPACES# (20) 

9050 LOCATE 1,6:PRINT ACNAME$# (20) ; TAB (25) ; "METHODE"; 

9055 IF METHS>1 THEN 9060 

9057 1F FAY THEN X1#=LEFT#(RECMETH# (1) ,2) 

9058 GOTO 9070 

9060 LOCATE 32,6:T=3:1=2:GOSUR 8000:1F X1#="" THEN 9020 ELSE X1$=UP 

PER# (X1#) 

9070 FOR ZO=1 TO METHS:1IF FAY THEN X$=PAYMETH#(Z0) ELSE X$=RECMETH# 
(29) 

9072 IF LEFT#(X1#,2)=LEFT#(X#,2) THEN 9090 

9080 NEXT ZO:GOTO 9060 

9090 MIDF(XO0#,2,2)=X1#:LOCATE 25,6: FRINT CLEOL$+X$ 

9100 LOCATE 1,7:PRINT “JJMM No. COMPTE CATEGORIE": LN=8: X3#$=LEFT#( 
DATE#,2) +MID# (DATE#,4,2) : 

7110 CLS #6:FRINT #6,"DONNEZ LA DATE (JJMM) OÙ PRESSEZ CLR" LOCAT 

E 1,LN:PRINT CLEOL#;:T=2:1=4:GOSUB 8000:CLS #6:1F LEN(X1#)=0 OR X1 
#="0000" THEN 9000 





rés 


9120 MID#(XO#,4,4)=X1# 
9150 FRINT #6,"DONNEZ LE CODE DE L'OFERATION OÙ PRESSEZ ENTER"; : LOC 
ATE 6,LN:PRINT CLELS#;:T=2:L=2:GOSUR 8000:CLS #6 
9160 MID#(XO$,8,2)=LEFT#(X1#+" ",3) 
9200 PRINT #6,"INDIQUEZ LE MONTANT (CLR POUR CORRIGER) “;:LOCATE 10, 
LN:FRINT CLEOL#:;:T=-2:L-=9:GOSUB 8000:CLS #6:1F ZO=-0 THEN 9110 
9210 LOCATE 10,LN:FRINT CLEOL#; USING "HH#HHH##.HH";2ZO; 
9220 MID#(XO#,11,9)=MID#(STR$ (ZO) +" ",2,9) 
230 LOCATE 20,LN:PRINT CLEOL$; 
922? IF CATS>1 THEN 923 
9274 IF FAY THEN X1#=LEFT#(PAYCAT#(1),2) ELSE X1$=LEFT$ (RECCATS# (1), 
2) 
9236 GOTO 9250 
9238 PRINT #6,"INDIQUEZ LE CODE DE LA CATEGORIE (CLR POUR CORRIGER) 
“:T=3:L=2:GOSUB 8000:CLS #6 
9240 IF X1$="" THEN 9200 ELSE X1$=UPPERS$ (X1#) 
9250 FOR Z0=1 TO CATS:IF PAY THEN X$=PAYCAT$(ZO0) ELSE X$#=RECCAT$# (ZO 
) 
9255 IF LEFT$#(X1#,2)=LEFT#(X$,2) THEN 9300 
9260 NEXT Z0:GOTO 9230 
9300 LOCATE 20,LN:PRINT X$ 
9310 MID$(XO$,20,2)=X1$ 
9320 TRANS=TRANS+1:UPDATED=TRUE: IF PAY THEN PAYS=TRANS: PAYS (PAYS) =X 
O$ ELSE RECS=TRANS: REC$ (RECS) =X0$ 
9330 IF TRANS=MAXTRANS THEN 9450 
9340 IF LN=23 THEN GOSUB 4100:GOTO0 9000 
9350 LN=LN+1:X3$=MID$(X0#,4,4):GOTO 9110 
9450 IF PAY THEN X$="PLUS DE PLACE POUR LES DEPENSES'" ELSE X$="PLU 
S DE PLACE POUR LES RECETTES!" 
9460 CLS #6:PRINT #6,X$;:T=1:L=0:GOSUB 8000:CLS #6 
9499 RETURN 
9500 REM SUP. TRANSFERT 
9505 GOSUB 4200 
9510 IF PAY THEN X$="SUPPRESSION DE DEPENSE'" ELSE X$="SUPPRESSION 
DE RECETTE!" 
9515 Y=1:GO0SUB 4050 
9520 LOCATE 1,7:X2#=CHR$ (242) +CHR$ (16) +CHR$ (13) +CHR$ (240) +CHR$ (241) 
+"Ss" 
9530 PRINT “COMPTE DATE METHODE No. MONT 
ANT CATEGORIE" 
9540 IF PAY THEN TRANS=PAYS:METHS=PAYMETHS: CATS=PAYCATS ELSE TRANS= 
RECS : METHS=RECMETHS: CATS=RECCATS 








9545 78=1:X4$="":Xx5 :GOSUB 4800 

9550 GOSUB 11300:LN=0:PTR=8 

9535 LOCATE 77,PTR:PRINT " <="; z 

9560 CLS #6:PRINT #6,"-DEPLACEMENT: ENTER, CLR OÙ ";LFT#;" —SELE 
CTION: “";UP#$;" OÙ “;DOWN$; " —SUPPRESSION: S.";T=4:L=0:GOSUB 8000 
:CLS #6 


9570 ON ZO GOTO 9580,9999,9600,9700,9700,9800,9800 
9580 Z8=28-16:1F Z8<1 THEN Z8=1 

9585 GOTO 9550 

97600 IF Z9<=TRANS THEN Z8=79+1:GOTO 9550 ELSE 9999 
9700 LOCATE 77,PTR:PRINT " "s 

9710 IF ZO=4 THEN PTR=PTR-1 ELSE PTR=PTR+1 

9720 IF PTR<B THEN PTR=8 

9730 IF PTR>23 THEN PTR=23 

9735 IF PTR-7>(TRANS-Z8+1) THEN PTR=PTR-1 

9740 GOTO 9555 

9800 7Z1=Z8+PTR-8 

9810 FOR Z9=Z1 TO TRANS-1 

9820 IF PAY THEN 9840 

9830 REC$(Z9)=REC$ (Z9+1):GOTO0O 9850 

9840 PAY$(Z9)=PAYS$S(Z9+1) 

9850 NEXT Z9 

9860 UPDATED=TRUE: IF PAY THEN PAYS=PAYS-1 ELSE RECS=RECS-1 
9870 TRANS=TRANS-1 

9880 GOTO 9550 

9999 GOSUB 45300:RETURN 

10000 REM ERREUR 

10010 PRINT "ERREUR"; ERR; "EN"; ERL 

10020 PAPER O:PEN 1 

10030 MODE 1 
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10999 STOP 
11000 REM LISTE TRANS 
11005 GOSUB 4400 
11007 IF SCREEN THEN GOSUE 4200 
11010 IF PAY THEN X$="LISTE DES DEPENSES" ELSE X$="LISTE DES RECETT 
Es" 
11015 GOSUB 4000:Y=1:GOSUB 4050 
11020 LOCATE 1,7: X2$=CHR$ (242) +CHR$ (16) +CHRS$ (13) 
11022 PRINT "COMPTE (TAPEZ ENTER POUR TOUS LES COMPTES";:T=3:L=1:G0 
suB 8000 
11023 X4$=UPPERS (X1$) 
11024 LOCATE 1,9:PRINT "CATEGORIE (TAPEZ ENTER POUR TOUTES LES CATE 
GORIES";:T=3:L=2:GOSUB 8000 
11025 XS$=UPPERS (X1$) 
11027 LOCATE 1,7: PRINT CLEOSC#; 
11030 GOSUB 4500:PRINT #PRDEV1, "COMPTE DATE METHODE 
No. MONTANT CATEGORIE" 
11040 IF PAY THEN TRANS=PAYS:METHS=PAYMETHS: CATS=PAYCATS ELSE TRANS 
2RECS: METHS=RECMETHS: CATS=RECCATS 
11045 Z8=1 
11050 GOSUB 11300 
11055 IF NOT SCREEN THEN 11100 ELSE LN=0 
11060 CLS #6:PRINT #6,"TAPEZ ENTER POUR AVANCER, "3LFT$;" POUR RECU 
LER, OÙ CLR POUR RETOURNER AU MENU “;:T=4:L=0:GOSUR 8000:CLS #6 
11070 ON ZO GOTO 11080,11250,11100 
11080 REM RECUL 
11090 Z8-=-28-16:1F ZB<1 THEN Z8=1 
11095 GOTO 11050 
11100 REM AVANCE 
11110 IF Z9<=TRANS THEN Z8-79+1:GOT0 11050 
11250 REM RETOUR 
11255 IF NOT SCREEN THEN GOSUB 4600 
11260 GOSUB 4300 
11299 GOSUB 4800:RETURN 
11300 REM LISTE DEPENSE OU RECETTE 
11207 CLS #5 
11205 FOR 29-28 THEN TRANS 
11210 IF FAY THEN X#=PAY#(Z9) ELSE X$=REC$# (29) 
3 IF X4#<)"" THEN IF X4#<DLEFT#(X#,1) THEN 11420 
IF X5$43"" THEN IF XS$C>RIGHT#(X#,2) THEN 11420 
11215 XO#=LEFT#(X#, 1) 
11320 FOR Z1-1 TO ACCOUNTS:1IF XO#$=LEFT#$ (ACNAME# (21) ,1) THEN 11330 
11325 NEXT Z1:GOT0 11235 
11230 XO$=-ACNAMES (21) 
11335 GOSUB 4500:PRINT #PRDEV2,X0$; TAB(22);MID#(X$,4,2);"/"3;MIDS(X# 
5652)3" "3 
11340 IF PAY THEN METH$-PAYMETH#(Z1) ELSE METH$#=RECMETHS (Z1) 
11345 IF XO$-LEFT#(METH#,2) THEN 11355 
11350 NEXT Z1:G0T0 11360 
11355 XO$-METHS 
11360 PRINT HPRDEV2,X0#; TAB(45);MID#(X#,8,3)3;" "3 
11365 PRINT HPRDEV2,USING "#HHH#HH#.## "3; VAL(MID#(X$,11,9)); 
11270 XO$=RIGHT4# (X$,2) 
11375 FOR Zi=1 TO CATS 
11380 IF FAY THEN CT$=-PAYCAT#(Z1) ELSE CT$#-RECCATS# (Z1) 
11385 IF XOf=LEFT#(CT#,2) THEN 11395 
11290 NEXT Z1:GOT0 11400 
11395 XO$-CT# 
11400 FRINT HPRDEV2,X0# 
11410 IF LN=LINES THEN 11499 
11420 NEXT 29 
11499 RETURN 
11500 REM RECAFITULATIF TRANS 
11502 GOSUE 4400 
11510 IF FAY THEN X$="RECAPITULATIF DES DEPENSES" ELSE X#="RECAPITU 
LATIF DES RECETTES" 
11515 GOSUB 4000:Y-1:GOSUB 4050 
11520 T2-0 
11525 IF FAY THEN TRANS=PAYS:CATS-PAYCATS ELSE TRANS=RECS: CATS=RECC 
ATS 
11530 FOR Z9-1 TO CATS:Z2=0 
11535 IF PAY THEN X$=PAYCAT#(Z9) ELSE X$-RECCAT$ (29) 





11540 FOR Zi=1 TO TRANS 
11545 IF PAY THEN XO$=-PAY$(Z1) ELSE XO$=RECS$ (Z1) 

11550 IF RIGHT$(XO#$,2)=LEFT$(X$,2) THEN Z2=Z2+VAL(MID#(XO$,11,9)) 
11560 NEXT Z1 

11565 IF Z2=0 THEN 11590 

11570 GOSUB 4500:PRINT #PRDEV2, X#; TAB (20) ; 

11580 PRINT #PRDEV2,USING "######;##";2Z2 : T2=T2+72 

11590 NEXT 29 

11600 GOSUB 4500:PRINT #PRDEV2, "TOTAL"; TAB (20); 

11610 PRINT #PRDEV2,USING “"HH#####; #3; T2 

11620 GOSUB 4600 

11999 GOSUR 4800:RETURN 

12000 REM LISTE CATEGORIES 

12005 GOSUB 4400 

12010 IF PAY THEN X$="CATEGORIES DE DEPENSES" ELSE X$="CATEGORIES D 
E RECETTES" 

12015 GOSUB 4000:Y=1:GOSUB 4050 

12025 IF PAY THEN CATS-PAYCATS ELSE CATS=RECCATS 

12030 FOR Z0=1 TO CATS 

12040 IF ZO/2=INT(ZO/2) THEN X=21 ELSE X=1:GOSUB 4500 

12060 PRINT #PRDEV2,TAB(X);:1F PAY THEN PRINT #PRDEV2,PAYCATS (20) ; 
ELSE PRINT #PRDEVZ,RECCATS$ (ZO) ; 

12070 NEXT ZO 

12080 GOSUB 4600 

12499 GOSUB 4800:RETURN 

12500 REM AJOUT CATEGORIE 

12510 1F PAY THEN CATS=PAYCATS: MAXCATS=MAXPAYCATS: X#="NOUVELLE CATE 
GORIE DE DEPENSE" ELSE CATS=RECCATS: MAXCATS=MAXRECCATS: X#="NOUVELLE 
CATEGORIE DE RECETTE" 

12515 GOSUB 4000:Y=1:GOSUB 4050 

12517 PRINT CLEOSC$; : LN=6 

12520 FOR ZO=1 TO CATS 

12530 IF ZO/2=INT(ZO/2) THEN X=21 THEN X=1:LN=LN+1 

12540 LOCATE X,LN : IF PAY THEN PRINT PAYCAT#(Z0); ELSE PRINT RECCA 

T$(ZO) ; 

12560 NEXT ZO 

12570 IF CATS=-MAXCATS THEN 12900 

12575 IF PAY THEN X$="NOUVELLE CATEGORIE DE DEPENSE" ELSE X$="NOUVE 

LLE CATEGORIE DE RECETTE" 

12580 LOCATE 1,25:PRINT CLEOL$+X$;:T=3:L=15:GOSUB 8000 

12590 IF X1$="" THEN 12950 

12595 IF LEN(X1$)<2 THEN PRINT BEL$;:GOTO 12580 ELSE X1$=UPPERS (X1$ 
) 

12600 FOR ZO=1 TO CATS 

12605 IF PAY THEN XO$=-PAYCATS$(Z0) ELSE XO$=RECCATS$ (Z0) 

12607 IF LEFT$#(X1$,2)=LEFT$#(XO0$,2) THEN 12580 

12610 NEXT ZO 

12620 CATS=CATS+1:UPDATED=TRUE: IF PAY THEN PAYCATS(CATS)=X1$ ELSE R 

ECCAT$ (CATS)=X1$ 

12630 GOTO 12517 

12900 IF PAY THEN X$="PLUS DE PLACE POUR LES CATEGORIES DE DEPENSE! 
“ ELSE X$="PLUS DE PLACE POUR LES CATEGORIES DE RECETTE!" 

12910 LOCATE 1,25:PRINT CLEOL$+X$;:T=1:L=0:GOSUB 8000 

12950 IF PAY THEN PAYCATS=CATS ELSE RECCATS=CATS 

12999 RETURN 

13000 REM SUPPRESSION CATEGORIE 

13010 IF PAY THEN CATS=PAYCATS: X$="SUPPRESSION: CATEGORIE DE DEPENS 

E" ELSE CATS=RECCATS: X$="SUPPRESSION: CATEGORIE DE RECETTE" 

13015 GOSUB 4000:Y=1:GOSUB 4050 

13025 IF CATS-0 THEN 13499 

13030 FOR ZO=1 TO CATS 

13040 IF ZO/2=INT(ZO/2) THEN X=21 ELSE X=1:GOSUB 4500 

13060 PRINT #5,TAB(X);:1F PAY THEN PRINT #5,PAYCAT#(Z0); ELSE PRINT 
#5 ,RECCATS# (ZO) ; 

13070 NEXT ZO 

13080 LOCATE 1,25:PRINT "CATEGORIE SUPPRIMEE “;:T=3:L=2:GOSUB 8000 
13090 IF X1$="" THEN 13499 ELSE X1$-=-UPPER$ (X1$) 

13100 IF LEN(X1#)<>2 THEN 13080 

13110 FOR ZO=1 TO CATS:IF PAY THEN X$-PAYCAT$#(Z0) ELSE X$-=-RECCATS (Z 
0) 

13115 IF X1$=LEFT#(X$#,2) THEN 13150 

13120 NEXT ZO 
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17130 GOTO 12080 
13150 FOR Z1=Z0 TO CATS-1 

13160 IF PAY THEN PAYCAT#(Z1)=PAYCAT$(Z1+1) ELSE RECCAT#(Z1)=RECCAT 
#(Z1)+1 

13170 NEXT Zi 

13180 CATS=-CATS-1:UPDATED=TRUE: IF PAY THEN PAYCATS=CATS ELSE RECCAT 
S=CATS 

13190 CLS #5 

13200 GOTO 13025 

13499 RETURN 

13500 REM LISTE METHODES 

13505 GOSUB 4400 

12510 IF PAY THEN METHS=PAYMETHS: X$="METHODES DE PAIEMENT" ELSE MET 
HS=RECMETHS: X$="METHODES D ENCAISSEMENT “ 

13515 GOSUB 4000:Y=1:GOSUB 4050 

13530 FOR ZO=1 TO METHS 

13540 IF ZO/2=INT(ZO/2) THEN X=21 ELSE X=1:GOSUE 4500 

13560 PRINT #PRDEV2,TAB(X);:1F PAY THEN PRINT HPRDEV2,PAYMETHS# (ZO) : 
ELSE PRINT #PRDEV2,RECMETHS (ZO) ; 

13570 NEXT Z0 

13580 GOSUB 4600 

13999 GOSUB 4800:RETURN 

14000 REM AJOUT METHODE 

14010 IF PAY THEN METHS=PAYMETHS: MAXMETHS=MAXPAYMETHS: X$="DEPENSES" 
ELSE METHS=RECMETHS: MAXMETHS=MAXRECMETHS: X$="RECETTES" 

14012 GOSUB 4000:Y=1:GOSUB 4050 

14015 PRINT CLEOSCS; : LN=6 

14020 FOR ZO=1 TO METHS 

14030 IF ZO/2=INT(Z0/2) THEN X=21 THEN X=1:LN=LN+1 

14040 LOCATE X,LN : IF PAY THEN PRINT PAYMETH$(Z0); ELSE PRINT RECM 

ETH$ (ZO); 

14050 NEXT ZO 

14060 IF METHS=MAXMETHS THEN 14400 

14062 IF PAY THEN X$="NOUVELLE METHODE DE PAIEMENT" ELSE X$="NOUVEL 
LE METHODE D'ENCAISSEMENT" 

14065 LOCATE 1,25:PRINT CLEOL$+X#;:T=3:L=15:GOSUB 8000 

14070 IF X1$="" THEN 14499 

14075 IF LEN(X1$#)<2 THEN PRINT BEL$;:GOTO 14065 ELSE X1$#=UPPERS$ (X1$ 
) 

14080 FOR ZO=1 TO METHS:1F LEFT#(X1#,2)=LEFT#(X$,2) THEN 14065 
14090 NEXT ZO 

14100 METHS=METHS+1:UPDATED=TRUE: IF PAY THEN PAYMETHS=METHS: PAYMETH 
$(PAYMETHS)=X1$ ELSE RECMETHS=METHS: RECMETHS (RECMETHS)=X1$ 

14110 GOTO 14015 

14400 CLS #6:PRINT #6,"PLUS DE PLACE POUR LES METHODES'";:T=1:L=0:G 
OSUB 8000:CLS #6 

14499 RETURN 

14500 REM SUPPRESSION METHODE 

14510 IF PAY THEN METHS=PAYMETHS:X$="METHODES DE PAIEMENT" ELSE MET 
HS=RECMETHS: X#="METHODES D'ENCAISSEMENT" 

14515 GOSUB 4000:Y=1:GOSUB 4050:LN=0:GOSUB 4800 

14525 IF METHS=0 THEN 14999 

14530 FOR ZO=1 TO METHS 

14540 IF Z0/2=INT(ZO/2) THEN X=21 ELSE X=1:GOSUB 4500 

14560 PRINT #5,TAB(X);:1F PAY THEN PRINT #5,PAYMETH$(Z0); ELSE PRIN 
T H#S,RECMETH#(2ZO) ; 

14570 NEXT ZQ 

14580 LOCATE 1,25:PRINT “METHODE SUPPRIMEE ";:T=3:L=2:GOSUB 8000 
14590 IF X1#="" THEN 14999 ELSE X1#=UPPER$ (X1$) 

14600 IF LEN(X1#)<>2 THEN 14580 

14610 FOR ZO=1 TO METHS:1F PAY THEN X$=PAYMETH#(ZO) ELSE X$=RECMETH 
#+(Z0) 

14615 IF X1#-=LEFT#(X#,2) THEN 14650 

14620 NEXT 20 

14630 GOTO 14580 

14650 FOR Z1=ZO TO METHS-1 

14660 IF PAY THEN PAYMETH$(Z1)=PAYMETHS(Z1+1) ELSE REZMETH$(Z1)=REC 
METHS (Z1) +1 

14670 NEXT Zi 

14680 METHS=METHS-1:UPDATED=TRUE: IF PAY THEN PAYMETUS=METHS ELSE RE 
CMETHS=METHS 

14690 CLS #5 
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14700 GOTO 14525 

14999 RETURN 

15000 REM LISTE VIREMENTS 

15005 GOSUE 4400 

15007 IF SCREEN THEN GOSUE 4200 

15010 X#="VIREMENTS AUTOMATIQUES":Y={:GOSUR 4050 


15020 LOCATE 1,7:GOSUEB 4500: PRINT #PRDEV1, "COMPTE JIM 
M MONTANT CATEGORIE" 

19070 X2F=CHRE (242) +CHRE (16) +CHR# (13) 

15040 78=1 


15050 GOSIE5 15300 
15055 1F NOT SCREEN THEN 15100 ELSE LN=O 
15060 CLS #6:PRINT #6,"TAPEZ ENTER POUR AVANCER, “;LFT$;" POUR RECU 
LER, OÙ CLR POUR RETOURNER AU MENU ";:7T=4:L=0:GOSUB 8000:CLS #6 
15070 ON ZO GOTO 15080,15250,15100 
15080 REM RECUL 
15090 Z8=7Z8-16:1F Z8<1 THEN Z8=1 
15095 GOTO 15050 
15100 REM AVANCE 
15110 IF Z9<=S0S THEN Z8=79+1:GOTO 15050 
15250 REM RETOUR 
15255 IF NOT SCREEN THEN GOSUB 44600 
5260 GOSUB 4500 
15299 GOSUB 4800:RETURN 
15300 REM LISTE VIREMENTS 
15305 CLS #5 
15310 FOR Z9=7Z8 THEN S0S 
15315 FOR Z1i=1 TO ACCOUNTS:1IF LEFT$(S0$(29) ,1)=LEFTS$ (ACNAMES$ (71) ,1) 
THEN 15330 
15320 NEXT Z1:XO$=LEFT#$(S0$(Z9),1):GOT0 15335 
15350 XO$=ACNAMES# (71) 
15335 GOSUR 4500:PRINT #PRDEV2,X0#; TAB(22) ;MID$ (S0$(Z9),2,2)5;"/"3;MI 
D#$(S0$(79),4,2)3" "3 
15340 PRINT #PRDEV2,USING "#HH#HH#.H## ": VAL (MID$ (S0$(Z9),6,9)); 
15350 FOR Zi=1 TO PAYCATS 
15360 IF RIGHT#(S0$(Z9),2)=LEFT$(PAYCAT$#(Z1),2) THEN 15380 
15370 NEXT Z1:XO$=LEFT$ (PAYCAT$#(Z1),2):GOTO0 15400 
15380 XO$=PAYCAT#(Z1) 
15400 PRINT #PRDEV2,X0# 
15410 IF LN=LINES THEN 15499 
15420 NEXT 79 
15499 RETURN 
15500 REM AJOUT VIREMENT 
15510 GOSUB 4000:X$="VIREMENTS AUTOMATIQUES":Y=1:GOSUB 4050 
15520 IF SOS=MAXSOS THEN 15950 
15530 LOCATE 2,6: PRINT CLEOL$+"COMPTE ";:T=3:L=1:GOSUB 8000:1IF X1$= 
“"" THEN 15999 ELSE X1#=UPPERS#(X1#) 
15540 FOR Z0=1 TO ACCOUNTS:1IF LEFT#$(X1$,1)=LEFTS$ (ACNAMES$ (Z0),1) THE 
N 15580 
15545 NEXT Z0:GO0OTO 15530 
15580 XO$=X1#$+SPACES$ (15) 
15590 LOCATE 1,6:PRINT CLEOL$+ACNAMES# (Z0O) 
15600 LOCATE 1,7:PRINT “JJMM MONTANT CATEGORIE": LN=8 
15610 CLS #6:PRINT #6,"Donnez la date (le mois est facultatif)"; 
15612 LOCATE 1,LN:T=2:L=4:GOSUB 8000:CLS #6:1F LEN(X1$#)=0 OR X1$="O 
000" THEN 15500 
15615 IF RIGHT#(X1#,2)="O00" THEN X1$=LEFT#(X1#,2)+"  " 
15620 MID#(X0#,2,4)=X1# 
15630 LOCATE 6,LN:PRINT CLEOL#;:T=2:L=9:GOSUR 8000:1F ZO=0 THEN 156 
10 
15640 LOCATE 6,LN:PRINT CLEOL$; USING "#h###h##. #4"; ZO 


15645 MID$(X0$,6,9)=MID$ (STR#(ZO) +" "s2959) 
15650 LOCATE 16,LN:T=3:L=2:GOSUB 8000 
15660 IF X1$="" THEN 15630 ELSE X1$=UPPERS$ (X1$) 


15670 FOR ZO=1 TO PAYCATS 

15680 IF LEFT#$(X1$,2)=LEFT$(PAYCAT$#(Z0),2) THEN 15700 
15690 NEXT ZO:G60TO 15650 

15700 LOCATE 16,LN:PRINT PAYCAT#(Z0) 

15710 MID$(XO#,15,2)=X1$ 

15720 S0S=-S0S+1:S0$ (508) =X0$ : UPDATED=TRUE 

15730 IF SOS=MAXSOS THEN 15950 

15740 IF LN=23 THEN GOSUB 4100:GO0OT0 15500 
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15750 LN=LN+1:GOTO 15610 

15950 CLS #6:PRINT #6,"PLUS DE PLACE POUR LES VIREMENTS AUTOMATIQUE 
S'!";:T=1:L=0:GOSUB 8000:CLS #6 

15999 RETURN 

16000 REM SUP. VIREMENT 

16010 GOSUB 4200 

16020 X$="SUPPRESSION DE VIREMENT AUTOMATIQUE":Y=1:GOSUB 4050 

16030 LOCATE 1,7: X2$=CHR$ (242) +CHR$ (16) +CHR$ (13) +CHRS$ (240) +CHRS$ (241 
)+"Ss" 

16040 PRINT “COMPTE DATE MONTANT CATEGORIE" 

16050 Z8=1:GOSUB 4800 

16060 GOSUB 15300:LN=0:PTR=8 


16070 LOCATE S7,PTR:PRINT " <="; 

16080 CLS #6:PRINT #6,"-DEPLACEMENT: ENTER, CLR OÙ ";LFT$;" -SEL 
ECTION: “;UP$;" OÙ ";DOWNS$;" —SUPPRESSION: S.";T=4:L=0:GOSUB 800 
O:CLS #6 


16090 ON ZO GOTO 16100,16499,16200,186300,16300,16400,16400 
16100 Z8=78-16:1F Z8<1 THEN Z8=1 

16110 GOTO 16060 

16200 IF Z9< SOS THEN Z8=79+1:GOTO0 16060 ELSE 16499 
16300 LOCATE 57,PTR:PRINT “ 3 

16310 IF ZO=4 THEN PTR=PTR-1 ELSE PTR=PTR+1 

16320 IF PTR<B THEN PTR=8 

16330 IF PTR>23 THEN PTR=23 

16340 IF PTR-7>(S0S-Z8+1) THEN PTR=PTR-1 

16350 GOTO 16070 

16400 Z1=7Z8+PTR-8 

16410 FOR Z9=Z1 TO SOS-1 

16420 S0$(Z79)=S0$(Z9+1) 

16430 NEXT 79 

16440 S0S=S0S-1 : UPDATED=TRUE 

16450 GOTO 16060 

16499 GOSUB 4300:RETURN 

16500 REM CONFIRME VIREMENT 


16510 GOSUB 4200 
16520 GOSUB 4000:X$="CONFIRMATION DE VIREMENT AUTOMATIQUE": Y=1:GOSU 


E 4050 

16570 LOCATE 1,7: X2$=CHRS$ (242) +CHRS$ (16) +CHR$ (13) +CHRS$ (240) +CHRS$ (241 
)+"Cc" 

16540 FRINT “COMPTE DATE MONTANT CATEGORIE 


MOIS CONFIRME" 
16545 IF PAYS=MAXPAYS THEN 16974 
16550 Z8=1:GOSUB 4800 
16560 GOSUB 15300:LN=0:PTR=8 


16570 LOCATE 57,PTR:PRINT CLEOL$;" <="; 
16580 CLS #6:PRINT #6,"-DEPLACEMENT: ENTER, CLR OÙ ";LFT$;" -SEL 
ECTION: ";UP$;" OÙ “;DOWNS$;" -SUPPRESSION: S.";T=4:L=0:GOSUB 800 
O:CLS #6 


16590 ON ZO GOTO 16600,16999,16700,16800,16800,16900,169700 
16600 Z8=7Z8-16:1F Z8<1 THEN Z8=1 

16610 GOTO 16560 

16700 IF Z9< SOS THEN Z8=Z9+1:GO0OT0 16560 ELSE 16999 

16800 LOCATE 57,PTR:PRINT " 75 

16810 IF ZO=4 THEN PTR=PTR-1 ELSE PTR=PTR+1 

16820 IF PTR<B THEN PTR=8 

16830 IF PTR>23 THEN PTR=23 

16840 IF PTR-7>(S0S-7Z8+1) THEN PTR=PTR-1 

16850 GOTO 16570 

16900 Z1=7Z8+PTR-8:LOCATE S8,PTR:PRINT CLEOL$#; 

16910 XO0$=S0$(Z1):X$=STRING$(21," "):MID$#(X$,1,3)=LEFT$(XO$,1)+"VI" 
16915 X4$=MID#F(XO$,2,4):1F RIGHT#(X4$#,2)<>" " THEN 16930 

16917 PRINT #6,"INDIQUEZ LE MOIS ‘; 

16920 LOCATE 58,PTR:T=2:L=2:GOSUB 8000:CLS #6:1IF X1$="" THEN 16570 
16925 MID$(X4$,3,2)=LEFT#(X1$+"00",2) 

16930 MID$#(X$,4,4)=X4# 

16932 PRINT #6,"CONFIRMEZ LE MONTANT À PAYER "; 

16935 LOCATE 65,PTR:T=2:L=9:X3#$=MID$ (X0$,6,9) : GOSUB 8000:CLS #6 
16940 IF ZO0=0 THEN LOCATE 58,PTR:PRINT CLEOL$#;:GOTO 16570 

16950 MID$(X$,11,9)=MID$ (STR$(ZO) +" "9259) 

16960 MID$(X$,20,2)=RIGHT$(X0$,2) 

16970 PAYS=PAYS+1: UPDATED=TRUE : PAYS (PAYS) =X$ 

16972 IF PAYS<MAXPAYS THEN 163570 
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16974 CLS #6:PRINT #6,"PLUS DE PLACE POUR LES PAIEMENTS!";:T=1:L=0: 

GOSUB 8000:CLS #6 

16999 GOSUB 4300:RETURN 

17000 REM LISTE TRANSFERTS 

17010 GOSUB 4400 

17015 IF SCREEN THEN GOSUB 4200 

17020 X$="TRANSFERTS ENTRE COMPTES":Y=1:GOSUB 4050 

17030 LOCATE 1,7:GOSUB 4500:PRINT #PRDEV1,"DU COMPTE D 

ATE No. MONTANT AU COMPTE" 

17040 X2$=CHR$ (242) +CHRS$ (16) +CHR$ (13) 

17050 Z8=1 

17055 IF NOT SCREEN THEN 17100 

17060 GOSUB 17300 

17070 CLS #6:PRINT #6,"TAPEZ ENTER POUR AVANCER, ";LFT$;" POUR RECU 

LER, OÙ CLR POUR RETOURNER AU MENU ‘“;:T=4:L=0:GOSUB 8000:CLS #6 
17080 ON ZO GOTO 17085,17250,17100 

17085 REM RECUL 

17090 ZB=Z8-16:1IF Z8<1 THEN Z8=1 

17095 GOTO 17060 

17100 REM AVANCE 

17110 IF Z9<=XFERS THEN Z8=Z9+1:GO0OTO 17060 

17120 IF NOT SCREEN THEN GOSUB 4600 

17250 REM RETOUR 

17299 GOSUB 4300:GOSUB 4800:RETURN 

17300 REM LISTE TRANSFERTS 

17305 CLS #5 

17310 FOR Z9=Z8 THEN XFERS 

17312 X$=XFERS (Z9) 

17315 FOR Zi=1 TO ACCOUNTS: IF LEFT$#(X$,1)=LEFT$ (ACNAMES$ (Z1) ,1) THEN 
17330 

17320 NEXT Z1:XO$=LEFT#$(X$,1)+"?7":GOTO 17335 

17330 XO$=ACNAMES (Z1) 

17335 GOSUB 4500:PRINT #PRDEV2,XO0$;TAB(22);MID#(X$,2,2);"/";MIDS(X$ 
54,2)5" "3 

17340 PRINT #PRDEV2,MID#(X$,6,3)3"  " USING "#H##4##. #4 “3 VAL (MI 

D#(X#,9,9)); 

17345 FOR Zi=1 TO ACCOUNTS 

17350 IF RIGHT$(X$,1)=LEFT$ (ACNAMES$ (Z1),1) THEN 17365 

17360 NEXT Z1:XO$=RIGHT$ (XFER$ (Z9) ,1)+"?7":GOTO 17370 

17365 XO$=ACNAMES$ (Z1) 

17370 PRINT #PRDEV2,X0$ 

17400 IF LN=LINES THEN 17499 

17410 NEXT Z9 

17499 RETURN 

17500 REM AJOUT TRANSFERT 

17510 GOSUB 4000:X$="AJOUT DE TRANSFERT":Y=1:GOSUB 4050 

17520 IF XFERS=MAXXFERS THEN 17950 

17530 LOCATE 1,6:PRINT CLEOSC$+"DU COMPTE “;:T=3:L=1:GOSUB 8000:1F 

X1$="" THEN 17999 ELSE X1$=UPPERS$ (X1#) 

17540 FOR Z0=1 TO ACCOUNTS:IF LEFT$#(X1$,1)=LEFT$ (ACNAMES$ (Z0) ,1) THE 

N 17580 

17545 NEXT Z0:GOTO 17530 

17580 XO$=X1$+SPACES$ (17) 

17590 LOCATE 1,6:PRINT CLEOL$; "DU COMPTE: "; ACNAMES (ZO) 

17600 PRINT “JJMM No. MONTANT AU COMPTE": LN=8 

17610 LOCATE 1,25:PRINT CLEOL$+"DONNEZ LA DATE (JJMM) "; 

17612 LOCATE 1,LN:PRINT CLEOLS$;:T=2:L=4:GOSUB 8000:IF LEN(X1#)=0 T 

HEN 17530 

17620 MID$(X0$,2,4)=X1$ 

17625 LOCATE 1,25:PRINT CLEOL#; "DONNEZ LE No. DE L'OPERATION (FACUL 

TATIF)"; 

17630 LOCATE 6,LN:T=3:L=3:GOSUB 8000 

17635 MID#F(XO#,6,3)=X1# 

17640 LOCATE 1,25:PRINT CLEOL#; "DONNEZ LE MONTANT"; 

17645 LOCATE 10,LN:PRINT CLEOLS$;:T=2:L=9:GOSUB 8000 

17650 IF Z0=0 THEN 17610 

17660 MIDS(XO0#,9,9)=X1$ 

17670 LOCATE 1,25:PRINT "DONNEZ LE CODE DUCOMPTE"; 

17680 LOCATE 21,LN:T=3:L=1:GOSUB 8000 

17690 IF X1$="" THEN 17640 ELSE X1$=UPPER$ (X1#) 

17695 IF X1#=LEFT$#(XO$,1) THEN 17680 

17700 FOR Zi=1 TO ACCOUNTS 
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17710 IF X1$-LEFTS (ACNAMES (Z1),1) THEN 17730 

17720 NEXT Z1:G0T0 17680 

17730 MIDS(XO$,18,1)=X1# 

17740 LOCATE 21,LN:PRINT ACNAMES# (21) 

17750 XFERS=XFERS+1 : UPDATED=TRUE : XFER$ (XFERS) =XO# 

17760 IF XFERS=MAXXFERS THEN 17950 

17770 IF LN=23 THEN GOSUB 4100:GOT0 17530 

17780 LN=LN+1:GOTO 17610 

17950 CLS #6:PRINT #6,"PLUS DE PLACE POUR LES TRANSFERTS! ";:T=1:L= 
0:GOSUB 8000:CLS #6 

17999 RETURN 

18000 REM SUP. TRANSFERT 

18010 GOSUB 4200 

18020 X$="SUPPRESSION DE TRANSFERT":Y=1:GOSUB 4050 

18030 LOCATE 1,7:X2#=CHR$ (242) +CHRS (16) +CHR$ (13) +CHR$ (240) +CHR# (241 
)+"Ss" 

18040 PRINT "DU COMPTE DATE No. MONTANT AU COMPTE" 
18050 Z8=1:GOSUB 4800 

18060 GOSUB 17300:LN=0:PTR=8 


18070 LOCATE 67,PTR:PRINT " <="; 
18080 CLS #6:PRINT #6,"-DEPLACEMENT: ENTER, CLR OÙ ";LFT$;" -SEL 
ECTION: “";UP#$;" OÙ “;DOWNS;" —SUPPRESSION: S.";T=4:L=0:GOSUB 800 
O:CLS #6 


18090 ON ZO GOTO 18100,18499,18200,18300,18300,18400,18400 

18100 Z8=-7Z8-16:1F Z8<1 THEN Z8=1 

18110 GOTO 18060 

18200 IF Z9< XFERS THEN Z8-7Z9+1:GOT0 18060 ELSE 18499 

18300 LOCATE 67,PTR:PRINT “ ss 

18310 IF ZO=4 THEN PTR=PTR-1 ELSE PTR=PTR+1 

18320 IF PTR<BS THEN PTR=8 

18330 IF PTR>23 THEN PTR=23 

18340 IF PTR-7>(XFERS-Z8+1) THEN PTR=PTR-1 

18350 GOTO 18070 

18400 Z1=Z8+PTR-8 

18410 FOR Z9=Z1 TO XFERS-1 

18420 XFER#$(Z9)=XFER$(Z9+1) 

18430 NEXT 729 

18440 XFERS=XFERS-1: UPDATED=TRUE 

18450 GOTO 18060 

18499 GOSUB 4300:RETURN 

18500 REM NOUVELLE PERIODE 

18510 IF NOT UFDATED THEN 18600 

18520 CLS #6:PRINT #6,"SAUVEGARDE DE L'ANCIEN FICHIER AVANT LE REPO 
RT.";:T=1:L=0:GOSUR 8000 CLS #6:GOTO 18999 

18600 GOSUB 7500 

18610 FOR ZO0=1 TO ACCOUNTS: RALO(ZO) =BALC (Z0) : XFERS=0: PAYS=0:RECS=0: 
BALC(ZO)=O:NEXT 20 

18620 F#$="NOUVEAU FICHIER":GOSUR 2500 

18999 RETURN 

19000 REM AJUSTEMENT 

19010 GOSUB 4000 

19020 LOCATE 1,6:PRINT CLEOSC#:;:CLS #6: PRINT #6,"CODE DU COMPTE “;: 
T=3:L=1:GOSUB 8000:CLS #6 

19050 IF X1$="" THEN 19499 ELSE X1#=UFPER#(X1#) 

19040 FOR Z9=1 TO ACCOUNTS 

19050 IF X1#=LEFT#(ACNAME#(Z9) ,1) THEN 19070 

19060 NEXT Z9:GOTO 19020 

19070 LOCATE 1,6:PRINT CLEOSC#+ACNAMES$# (79); TAR(22) ;USING "#H#HHH4#. #4 
“; BALO(Z9) 

19080 CLS #6:PRINT #6,"NOUVEAU SOLDE D'OUVERTURE ";:LOCATE 22,7:T=2: 
L=9:GOSUE 8000:CLS #6 

19090 IF T=-S5 THEN 19499 ELSE BALO(Z9)=ZO: UFDATED=TRUE: GOTO 19020 
19499 RETURN 
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L'Amstrad CPC464 possède l'un des meil- 
leurs BASIC actuellement disponibles. A 
ceux qui ont déjà acquis les rudiments du 
BASIC, ce livre permettra d'approfondir 
leur connaissance de la programmation 
tout en découvrant les particularités qui 
font de l’Amstrad un des ordinateurs les 
plus puissants de sa catégorie. Après une 
première partie consacrée à la présenta- 
tion de la machine, on étudiera en détail 
les possibilités graphiques et sonores du 
BASIC Amstrad. Trois chapitres concer- 
nent l'utilisation de l'assembleur ZEN et 
décrivent la programmation en assem- 
bleur, l'interfaçcage avec le BASIC et l'uti- 
lisation des routines du système d'exploi- 
tation. De nombreux exemples de pro- 
grammes viennent illustrer chaque sujet. 
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